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Only Microware's OS-9 

Operating System Covers 

the Entire 68000 Spectrum 
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Is complicated software and expensive hardware 
keeping you back from Unix? Look into OS 9 the 
operating system from Miaow jrc that gives 68000 sy terns 
a Unix-style environment with much less overhead and 
complexity. 

OS-9 is versatile, inexpensive, and delivers outstanding 
performance on any size system. The OS-9 executive is 
much smaller and far more ef- 
ficient than Unix b cause it's 
written in tast, compact as- 
sembly language, making it 
ideal for critical real-time ap- 
plications. OS-9 can run on 
a bioad range of 8 to 32 bit 
systems based on the 68000 
or 6809 family MPUs from 
ROM -based industrial con- 
trollers up to large multiuser 
systems. 

OS-9S OUTSTANDING 

C COMPILER IS 
YOUR BRIDCE TO UNIX 

MiciDwaw's C compiler tech- 
nology is another OS-9 advantage. The compiler produces 
extremely tast. compact, and ROMablccode. You can easily 
develop md port system or application software back ami 
forth to standard Unix systems. Cross-compiler versions for 



VAX and PDP-1 1 make coordinated Unix/OS 9 software 

development a pleasure. 

SUPPORT FOR MODULAR SOFTWARE 
- AN OS-9 EXCLUSIVE 
Compiehensive support for modular software puis OS-9 

a generation ahead ot other operating systems. It multiplies 

programmer productivity and memory efficiency. Applica- 
tion software can be built 
from individually testable 
software modules including 
standard "Ijbraiy" modules. 
The modular structure lets 
you customize and recon- 
figure OS*9 for sp cific hard- 
ware easily and quickly. 

A SYSTEM WITH 

A PROVEN 
TRACK RECORD 

Once an underground 
classic, OS-9 is now a solid 
hit. Since 1980 OS-9 has 
been ported to over a hun- 



Key OS-9 Features At A Glance 
Compact (16K) ROMable executive written in assembly 
language 

User "shell" and complete utility set written in C 
C -source code level compatibility with Unix 
Full Multitasking/multiuser capabilities 
Modular design - extremely easy to adapt, modify or 
expand 

Unix-type tree structured file system 
Rugged "crash-proof" tile structuie with record locking 
Works well with floppy disk or ROM-based systems 
Uses haidwaie or software memory management 
High performance C, Pascal, Basic and Cobol compilers 



dred 6809 and 68000 
systems under license to some of the biggesl names in the 
business. OS-9 has been imbedded in numerous consumer, 
industrial, and OFM pioducts, and is supported by many 
independent software suppli rs. 
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GIMIX STATE OF THE ART 6809 SYSTEMS FOR THE SERIOUS USER. 




GIMIX has 19MB or high performance 
47MB Winchester Drive Systems and/or 
Floppy Disk Drive Systems. 



For the ultimate in perfoiTnance, the Unique GMX 6809 CPUIH 
using either OS-9-GMXH1 or UniFLEX GMXID (available shortly), 
gives protection to the system and other users from crashes 
caused by defective user programs, e.g. During program 
development, a programmer who crashes goes back to the 
shell or the debugger, while the other users are no; even 
aware anything occurred. 



The intelligent serial I/O processor boards signifi- 
cantly reduce system overhead by handling rou- 
tine I/O func- 
tions, there- 
by freeing up 
thehostCPUfor 
running user 
programs. This 
speeds up system per- 
formance and allows 
multiple terminals to be 
used at 19.2K baud. 



BA5IC-09 and OSS are catomj/ta of Microvolt Systems Corp. and M0T0R0U. Ine 
R.QC and UroFLEX are ffWsmarts <X Xretaial Systems Consultants. Inc 
GIMIX. GHOST GMX. CLASSY CHASSIS, an tiatfamafts of GIMIX. Inc. 




Gimix 



inc. 




For the user who appreciates the need for a 
bus structured system using STATIC RAM 
and powered by a ferro resonant constant 
voltage transformer: 

GIMIX has single user systems that can run 
both FLEX and OS-9 or Multi user systems for 
use with UniFLEX or OS-9. 

GIMIX versions of OS9 and UniFLEX in- 
clude maintenance and support by Micro- 
ware (90 days) and TSC (1 year). Mainte- 
nance and support after this period 
are available at extra 
cost. 

(NOTE: this support and 
maintenance is only 
for use with approved 
GIMIX hardware) 



GIMIX 6809 systems 
/ support live predominant 
/ operating systems 

OS-9 GMX III, 

OS-9 GMX II, 

UniFLEX, 

OS-9 GMX I, 

FLEX 

and a wide vanety of languages 
and development software 

Whatever your application software 
development instrumentation, process 
control, educational, scientific or business, 
whether you need single or multi-user 
capabilities. GIMIX has hardware and the 
operating systems to get the job done 
reliably 

Please phone or write if you need further information 



1337 WEST 37tfc PLACE • CHICAGO, ILLINOIS 60609 • (312) 927-5510 • TWX 910-221-4055 
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Send All Correspondence To: 

Computer Publishing Center 

68* Micro Journal 

9900 Cassandra Smith Rd. 

Hlxson, Tn. 37343 

Phone (6I5> 842-4600 or Telex 558 414 PVT BTH 

Copyrighted 1965 by Computer Publishing Inc. 

6B' Micro Journal Is published 12 times a year by 
Computer Publishing Inc. Second Class Postage Paid 
ISSN 0194-5025 at Hlxson, Tn. and additional entries. 
Postmaster: send form 3597 to 68' Micro Journal, POB 
849 Hlxson, Tn. 37343. 

Subscription Rates 

I Year {24.50 U.S.A., Canada & Mexico Add 19.50 a 
Vear. Other Foreign Add SI2 a Tear for Surface, 
Airmail Add 148 a Year. Must be In U.S. cu 



or Articles Far Publication 



Articles submitted for publication should Include 
authors name, address, telephone number and date. 
Articles should be on either 5 or 8 Inch disk In 
STYLOGRAPH or TSC Editor format with 3.5 Inch Column 

■ Idth. All disks mI II be returned. Articles submitted 
on paper should be 4.5 Inches In vldth (Including 
Source Listings) for proper reductions. Please Use A 
Dark Rlbbontt No Blue Inkllt Single space on 8X11 bond 
or better grade paper. No hand urttten articles 
accepted. Disks should be In FLEX2 6800 or FLEX9 
6809 any version or 0S-9 any version - 

The following TSC Text Processor commands ONLY 
should be used: - sp space, .pp paragraph, .ft fill and 

■ nf no fill. Also please do not format utthtn the text 
• Ith multiple spaces. We wt II enter the rest at time 
of editing. 

All STYLOGRAPH commands are acceptable except ,pg 
page command. We print edited text files In contlnous 
text form. 

Lerfw s To the Edltor 

All tetters to the editor should comply ulth the above 
requirements and must be signed* Letters of "gripes" 
as veil as "praise" are solicited. We reserve the 
right to reject any submission for lack of "good 
taste" and ne reserve the right to define "good 
taste". 

Advertising Rates 

Commercial advertisers please contact 68" Micro Journal 
advertising department for current rate sheet and 
requirements. 

Classified Advertising 



All classified ads must be non-commercial. Minimum of 
19.50 for first 20 nerds and .45 per uord after 20. 
All classifieds must be paid In advance, No classified 
ads accepted over the phone - 
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OS-9 M 
User Notes 



By: Peter Dibble 
As Published In 68 Micro Journal 



The publishers of 6b Micro Journal are proud Co announce the 
publication of Peter Dibbles 0S9 USKR MOTES . 

Information for th* BRCDWER to the PRO, 
tegular or CeCe 0S9 

Using 0S9 
HELP, HINTS, PROBLEMS, REVIEWS, SUGGESTIONS, COMPLAINTS, 0S9 STANDARDS, 
Generating a New Bootstrap, Building a new System Disk, 0S9 Users Group, etc. 

Program interfacing to 0S9 

DEVICE DESCRIPTORS, DIRECTORIES, "FORKS", PROTECTION, "SUSPEND STATE - , "PIPES", 

"INPUT/OUTPUT SYSTEM", etc. 

Programing Languages 
Assembly Language Programs and Interfacing; Bsslc09, C, Pascal, and Cobol 
reviews, programs, and uses; etc. 

Disks Include 
No typing all the Source Listings In. Source Code and, where applicable, 




assembled or compiled Operating Programs. The Source and the Discussions In 
the Columns can be used "as is", or as a "Starting Point" for developing your 
OWN more powerful Programs. Programs sometimes use multiple Languages such 
as a short Assembly Language Routine for reading a Directory, which is then 
"piped" to a Baslc09 Routine for output formatting, etc. 



BOOK 

Deluxe Binder 



Typeset — w/ Source List ings 
(3-Hole Punched; 8x11) 



$9.95 



$5.50 



_ T • • _. . . I 8 " SS, SD Disk - 

All Source Listings on Disk 2 5- ss, dd Disks 



- $14.95 

- $24.95 



Shipping and Handling; $3.50 per Book, $2.50 per Disk Set 
* All Currency in U.S. Dollars Foreign Orders Add $4.50 S/H 

If paying by check - Please allow 4-6 weeks delivery 

Continually Updated In 68 Micro Journal Monthly 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hixson. TM. 37343 



TM - OS9 1* ■ tridtMrk ol Hlcrowar* SyitCM Corp. and Motorola Inc 
TH - W Klcro Journal li • tndvurfc. of Computer rublimWng Inc. 



(615) 842-4600 
Telex 558 414 PVT BTH 
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FLEX" USER NOTES 

THE 6800-6809 BOOK 

By: Ronald W. Anderson 

As published in 68 MICRO JOURNAL 1 * 



The publishers of 68 MICRO JOURNAL are proud to announce the publication of Ron Anderson s FLEX USER NOTES, in 
book form. This popular monthly column has been a regular feature in 68 MICRO JOURNAL SINCE 1979. It has earned the 
respect of thousands of 68 MICRO JOURNAL readers over the years. In fact. Ron's column has been described as the 
Bible' for 68XX users, by some of the world's leading microprocessor professionals. Now all his columns are being 
published, in whole, as the most needed and popular 68XX book available. Over the years Ron's column has been one of 
the most popular in 68 MICRO JOURNAL. And of course 68 MICRO JOURNAL is the most popular 68XX magazine 
published. 

As a SPECIAL BONUS all the source listing in the book will be available on disk for the low price of: FLEX '" format only — 5" 
$12.95 — 8" $16 95 plus $2.50 shipping and handling, if ordered with the book II ordered separately the price of the disks 
will be: 5" $17.95 — 8" $19 95 plus $2 50 shipping and handling. 

Listed below are a few of the TEXT files included in the book and on diskette. 

All TEXT files in the book are on the disks. 



LOGO.C1 

MEMOVE.C1 

DUMP.C1 

SUBTEST.C1 

TERMEM.C2 

M.C2 

PRINT C3 

MODEMC2 

SCIPKG.C1 

U.C4 

PRINT.C4 

SETC5 

SETBAS1 C5 



File load program to offset memory — ASM PIC 
Memory move program — ASM PIC 
Printer dump program — uses LOGO — ASM PIC 
Simulation of 6800 code to 6809, show differences — ASM 
Modem input to disk (or other port input to disk) — ASM 
Output a file to modem (or another port) — ASM 
Parallel (enhanced) printer driver — ASM 
TTL output to CRT and modem (or other port) — ASM 
Scientific math routines — PASCAL 
Mini-monitor, disk resident, many useful functions — ASM 
Parallel printer driver, without PFLAG — ASM 
Set printer modes — ASM 
Set printer modes — A-BASIC 
(And many more) 



"Over 30 TEXT files included in ASM (assembler) — PASCAL — PIC (position independent code) TSC BASIC-C. etc. 

NOTE: C1..C2, etc. Chapter 1, .►apter 2, etc. 

This will be a limited run and we cannot guarantee that supplies will last long. Order now for early delivery. 

Foreign Orders Add $4.50 S/H 
Softcover — Large Formal 

Book only: $7.95 + $2.50 S/H 

With disk: 5" $20.90 + $2.50 S/H 

With disk: 8" $22.90 + $2.50 S/H 

See your local S50 dealer/bookstore or order direct from: 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hixson, TN 37343 

TELEX 551 414 PVT BTH (615) 842-4601 

"FLEX is a trademark of Technical Systems Consultants 
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ftorvald W. Anderson 
5S4(J Sturbrjdge Court 
Ann Arbor. Mi 481(15 

What Makes Computing Fun? 

I've been thinking a lot about that 
question lately. I started toy "affair" with 
computers about 8 years ago now. What 
makes It such a captivating hobby and 
fascinating career? Hobby computing Is 
ALWAYS fun because you only do It when you 
feel like It. Does that make sense? 
Sometimes I get veiy excited about some new 
project In connection with my hobby 
computing, and I'll spend a couple weeks of 
2 A.M.s working on that project. Other 
times, I just want to get away from It for 
a few days, and I might spend a couple 
evenings writing letters to my printer pals 
around the country. I think what makes me 
ALWAYS come back to It Is that each 
project Is new. 

Way back, I got Interested In binary 
math packages, just to choose one example. 
I wrote a package that used the stack a 
lot. This was before the 6809 and of 
course the 6800 has only a single stack 
pointer, S. If you've ever tried to use It, 
you quickly learned that subroutines are a 
pain. Push some data on the stack and JSR 
to handle It, and the return address Is In 
the way. Every subroutine has to pull the 
return address off the stack, do Its 
function with the data, either altering It 
or removing It and pushing results, then 
either push the return address and RTS or 
stuff the return address In X and JMP 0,X. 
The math routines worked better and more 
efficiently than some I had just bought, 
and I used them for a few projects. 
Though It was a tough project, I gained 
some excellent experience In stack 
manipulations. When the '09 came along, I 
had the very Interesting project of 
translating the math routines. A half a 
page of stack manipulations was reduced to 
three lines of code. The HUL Instruction 
of the 6809 allowed a new approach to the 
multiply routine. It became more complex, 
more code, but it ran 4 or 3 times faster. 



Later I became interested in improving 
some simple and rather crude 
approximations that I had put together 
early in my computing experience for Sine, 
Cosine, Arctangent, and Square Root. That 
precipitated another search for 
improvements. Now, every time I see an 
article on math and scientific functions, I 
look for possible improvements that I can 

incorporate. 

That is one example out of dozens that 

I have experienced. You might wonder If 
one could ever get tired of multiply 
routines and Cosines. I can only say that 
I haven't yet . Each new possibility for 
improvement sends me off on a week of 
exploration, whether It be writing routines 
in assembler, modeling the calculation in 
BASIC to see If it is more efficient or 
more accurate, or tailoring a package for a 
particular language, the fun is there all 
over again. 

Another reason computing has been so 
much fun over the past 8 years is the rapid 
change in technology. I've gone through my 
original system configuration here enough 
times so I won't bore you with it again, 
but let's take a look at just a couple of 
changes. Way back in 1978 or 79, I bought 
an 8K memory board for around $200. Now I 
can buy 256K. for under $1000* My original 
disk drives were a pair of 35 track SSSD 
units that provided 340 sectors or about 
85K. of data storage each. Just at the 
start of the rapid advances la disk 
technology, I bought a pair of 8" drives of 
the Double Sided Double Density type, that 
provided nearly 1 Megabyte of storage each! 
That is an increase of more than 12 tines. 
I could take 12 of my old disks, all full, 
and fit their contents on ONE disk. The 
latest technology in five inch disks, 80 
tracks, double sided, double density allows 
about an 8 to 1 increase in storage density 
over those original drives. I don't know if 
the newest quad density drives are 
available in 80 track, but If they are, the 
storage would exceed the 8" DSDD drives 
that I have by A0X! 
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The original pair of drives and 
interface coat about $1000. The latest 
described above can be put two to a box 
with power supply for about $450. Now look 
at a 10 Mbyte hard disk WITH CONTROLLER for 
an IBM. These can be had for less than 
$700. Applications that could be only 
dreamed of a few years ago are now a 
reality. Am I still excited about 
computing? What do you think? 

A Trend 

I couldn't help putting in this little 
bit about the IBM and its clones. I 
presently have very mixed feelings about 
the '09 vs the 1MB clones, and these 
comments will reflect those feelings. 
First point is that I have just scanned two 
issues of PC World looking for an Assembler 
for the 8086. In those two issues I found 
ONE! Most of the software suppliers list 
what they call Utility programs, but their 
idea of utilities is something like 
"Sidekick", which is a program that lets 
you interrupt what you are doing to make a 
note to yourself in a file or access a data 
file, and then go back to what you are 
doing. Obviously, the "trend" is for the 
computer to be a "user" item and not a 
"programmer" item. There are several 
"languages" for sale in the ads, mostly C, 
Pascal, Fortran, and BASIC compilers. 

The company has bought the Lattice "C* 
compiler for the Tandy IBM clone, and it is 
a rather nice compiler with terrible 
documentation. I managed to get my multi 
test benchmark running in Lattice "C*. At 
this point I don't know whether to be 
impressed or not. McCosh 'C on the 6809 
beats Lattice "C" on the Tandy, but not by 
very much. The results are quite close, 
the Tandy winning some of the tests and 
the '09 some others. I note with some 
satisfaction that the McCosh version on the 
'09 generates 11. 3K of object code while 
the Lattice version generates 18. 8K on the 
Tandy. However, when the Tandy is aided by 
the 8087 Co-processor, things are quite 
different. The two long times in the 
benchmark are those for the square root of 
1000.0 taken 1000 times, and the DOUBLE 
precision multiply divide test in which 
there are 2000 multiplies and 2000 divides. 
The 8086 and the 6809 both take around 13 
seconds for each of these tests. With the 
co-processor, however, the Tandy does 
these two in around 2 seconds each. 

I bought one of the inexpensive screen 
editors for the Tandy, and I can truly say 
that it is awful. Not only won't it "wrap" 
a word around to the start of the next 



line when a line fills, it actually wraps to 
the start of the same line and starts to 
overtype what was just typed in! Further, 
at the bottom of the screen it wraps 
around to the top. The user must 
explicitly page down to provide more space 
in which to edit. If that were not enough 
the user also has to "extend" the file with 
blank lines before he can edit below the 
current last line. After using the editor 
for a while, I've gotten sort of used to its 
non-wrap and all the other features are 
rather nice. 

JUST in C 

No, that's not a typo. I've mentioned my 
text formatter program JUST in this column, 
and you have seen the ads for it nearby. 
It is written in PL/9. Well, I happen to 
like JUST a great deal. Having written it 
for myself, it just about fits my needs, 
which include simplicity of use and a 
limited number of commands. PL/9 compiles 
about 4.3k of object code for it. A 
couple weeks ago, I decided to try coding 
it in "C" so I could use it on the Tandy 
and the SWTPc system. Surprisingly it took 
only a week of evenings to get it 
translated and running. Since I wanted to 
get some experience with the feel of the 
Tandy keyboard and the new screen editor, I 
thought I would first get it running in 
Lattice "C" on the Tandy. Mission 
accomplished. The C version is quite fast 
in operation, can output to the printer, 
the terminal or a disk file with embedded 
control characters for the printer. The 
object code came to 11. 8K, almost three 
times as large as the PL/9 version on the 
SWTPc ays tern. 

After getting it running, I downloaded 
it back to the SWTPc system and compiled it 
in McCosh (Windrush) "C". There were 
remarkably few problems of compatibility, 
and most were concerned with the switching 
of output between a file, the terminal, or 
the printer. When I had both versions 
running, I found that the difference 
between the two versions was all contained 
in 5 lines out of the some 650 lines of 
program. I'm impressed with "C" and its 
implementors. 

The idea of having some software common 
to both systems was so nice that I 
immediately reactivated my screen editor 
project. I'm writing a screen editor that 
in my opinion puts together the best 
features of all the screen editors I have 
used. I decided to do it in PL/9 since it 
will compile about 12 times faster than 
with any of the C compilers, and it will be 
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easily translated when finished. I had 
about 1/4 of It done some time ago but had 
set It aside as a long and difficult 
project. Presently I am about half way 
toward having It done. I was right about 
It being difficult. Progress has been 
slow. My approach Is to Implement another 
command or a new feature by writing one or 
more new procedures for the program, 
getting them to compile, and then debugging 
them until they are somewhere near bug 
free. When 1 get tired of debugging, I 
write another chunk, of code to Implement 
another command, type It In, get It to 
compile and start debugging again. When It 
Is done and operating respectably, I'll send 
a couple copies off to people like Dan 
Farnsworth, Don Williams, Frank Hoffman, 
Peter Stark and a few others for comments 
and bug reports. Maybe some day It will be 
on the market. 

Feedback 
I Just received my June '68' Micro 
Journal today, and In the same mall were 
two reader responses. One was largely 
Informational and asked a couple of 
specific questions that I can answer with a 
letter. The other expressed a liking for 
the bit on the FLEX OUTCH and 0UTCK2 
character output routines and output 
switching. It is too early to draw any 
conclusions from the initial response. If 
the timing of these is any indication, I 
will probably get a number of responses. 
The writer of one of the letters said that 
he is now 48 and doesn't want to sit down 
and learn "from the beginning", but wants 
to get on with the programming. Surprise, 
folks, my 50th birthday came Last November. 
I guess I do like to dig into something and 
learn it from the basics up. I agree with 
something Don Williams said in his "Random 
Thoughts" in the June issue... We "old 
dogs" can learn new tricks, but he is 
right, it does take longer than it used to. 
More on the feedback later as more 
responses arrive in my mail. 

FLEX FILES 
In keeping with my promise of a few 
months ago, I thought I'd pick a FLEX topic 
for some discussion here. Flex uses two 
kinds of files. One is called a Binary file 
and the other a Text file (or an ASCII 
file). These designations refer to the 
contents of the file and how it is 
structured, and not the filename extensions 
.TXT and .BIN, though those extensions are 
usually used by FLEX users to distinguish 
between the types of files. A Binary file 



usually contains "object code" that is 
"executable" by the computer. Most 
programmers use the extension .BIN for a 
binary file, and the TSC Assembler uses 
that as the default extension for an 
assembler output file. All the FLEX 
utilities with the extension .CMD are 
binary files. Most Flex users use the .TXT 
extension for text files such as letters, 
manuals, etc. that are to be processed by 
a word processor to produce printed 
output. I tend to use the extension .TXT 
for all text files, but many other 
programmers use .SRC for Assembler source 
text files, .PL9 for PL/9 source files, 
etc. I do use .BAS for BASIC program files 
(which are text files), and if I used the 
"compiler" In TSC BASIC, I would use .BAC 
for "compiled" programs. 

What is the difference between these 
two types of files? A text file contains 
only printable ASCII characters (with a few 
exceptions). Text files in FLEX use a 
technique called "space compression". When 
FLEX reads a text out of memory and writes 
a file, it looks for two or more successive 
space characters ($20). It counts the 
successive spaces and replaces them with a 
special Horizontal Tab character ($09), 
followed by a count of the number of spaces 
in binary form. For example, if there are 
5 spaces In sequence, they will be replaced 
by $09, $05, thus coding the 5 spaces into 
two bytes. This system greatly reduces the 
size of text files with tables, etc. that 
are to be processed by text formatters. 
This space compression is "transparent" to 
the user of the files. That is, the file Is 
"expanded" again when it is loaded back 
into memory by a program. All the HT 
characters and counts go away and the 
spaces are again inserted. A CR ($0D) Is 
allowed in a text file. FLEX also allows 
nulls ($00) and $18 (control Z) which some 
software uses as an end of file marker In 
text files. Nulls are ignored by FLEX and 
if present in a file being read, they are 
"skipped over". 

A text file most frequently is composed 
of lines of text. A standard FLEX text 
file uses only CR ($0D) to mark the end of 
each line. The LIST utility adds an LF to 
the end of each line when it lists a text 
file. Word processors must do the same. 

A binary file may contain any and all 
possible values that can be represented 
with 8 bit "bytes". If you stop and think 
about it, that is a little trick. If the 
file can contain all possible values, how 
does the system put "instructions" in the 
file, such as at which address to load the 
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file into memory? The answer is "very 
carefully". A binary file is a bit more 
complicated than the text or ASCII file. 
The first byte of the file must be $02, and 
in fact that is the simplest way of 
determining whether the file is text or 
binary. The $02 is followed by two bytes 
that are the load address of the code that 
follows. Next comes a single byte that is 
a byte count for the "block" of code that 
follows. Since the count is a single byte, 
a block can't be longer than 255 bytes. 
Most programs are longer than that, so 
what happens when the byte count is 
exhausted? FLEX expects to see another 
$02, another load address, and another 
byte count. The process is repeated until 
there Is no more file. If there is a 
"transfer address" (a transfer address is 
the address where the code is to start 
executing after it is loaded into memory), 
a code $16 follows the last block. After 
the $16 comes the transfer address. Any 
remaining bytes in the last disk sector 
containing the program are nulls ($00). 

Now you may well ask how FLEX knows 
which kind of file to write. FLEX, as I 
said above, automatically processes space 
compression for text files. It does not 
automatically provide byte counts and load 
addresses for binary files, however. The 
program that loads or saves a binary file 
must do that. Of course the flex utilities 
for loading a binary file (GET) and for 
saving a binary file (SAVE and SAVE. LOW) 
read and write binary files properly. FLEX 
must be told, however, whether or not to 
use space compression. Without going into 
a lot of detail, FLEX uses a File Control 
Block (FCB) for each file that is open. 
When you open a file (or when one of your 
programs does so) FLEX defaults to a text 
file and performs space compression or 
expansion unless you set a "FLAG" in the 
FCB to tell it not to perform compression. 
If you point the X register of the '09 at 
the FCB (LOX t FCB1) then the byte in 
question is located at 59, X. (LDA #$FF, 
STA 59, X) will set the flag for binary 
files. Any program that manipulates binary 
files must set this FLAG after the file is 
opened and before it is used for read or 
write. 

While the binary file may appear complex, 
it is not terribly difficult to write a 
program to write or read a binary file. 
TSC did a very good job of making the 
storage of binary files efficient. Four 
control bytes for each block of up to 255 
bytes is a very small overhead compared to 
the way in which many other systems store 



binary files. Some of Motorola's older 
systems and many relocatable assemblers 
generate files called ASCII binary files. 
Each byte is stored as the ASCII 
representation of its two digit hex value. 
For example a $12 is stored as ascii 1 and 
ascii 2 ($31, $32). That of course means 
that the overhead is at least 100%. Most 
of the schemes that use ascii binary files 
have further overhead. The standard 
Motorola format some time ago for binary 
files on cassette tape was what is called 
the S1-S9 format. Each line of 16 bytes 
was preceded by SI, a two digit byte count, 
a four digit load address. Then came the 
16 bytes using 32 characters, and then two 
more characters at the end that represent 
a "checksum" for that line. That made It 
necessary to use 42 bytes to represent 16, 
an overhead of almost 200X. Clearly, the 
little bit of coding of byte counts and 
load addresses were worthwhile, 
particularly at a time when the disk held 
85K of data. 

If I remember correctly, the old MDOS of 
Motorola called the ascii representation of 
the binary file a BIN file, and the more 
compact pure binary file an EX file. There 
were two utilities called EXBIN and BINEX 
that made the conversion. The assembler 
produced output in the ascii binary version 
and one of the utilities had to be run to 
translate it into a plain binary file. 

There are a couple of points worth 
mentioning. First a text file has no load 
address. It doesn't matter where in memory 
the text file is loaded since it is not 
executable code. A text ediror may have a 
buffer in one area of memory, and a word 
processor may use an entirely different 
area for a working buffer. Both can load 
the same text file. A Binary file may be a 
program written in position independent 
code or it may not. If it is position 
independent, it may be loaded anywhere in 
memory and run. Such programs usually 
require a special loader that will load 
them at an address specified at load time, 
and Jump to the first load address for 
execution. 

That is the lesson on FLEX for this 
time. I hate to sound like a broken 
record but all this information is in the 
Advanced Programmer's Guide that comes with 
FLEX also. I think, however, that I have 
expanded the information and given some 
reasons why it was done the way it was. If 
you like this monthly discussion of some of 
the more basic things in FLEX, please let 
me know and we will continue it for a 
while . 



August 85 



68' Micro Journal 



OS-9 
User Notes 



I have been living at a new address 
for almost a year. The post office has 
been forwarding mall to me, but they are 
getting tired of it. I don't live at 517 
Goler House any more. My new address is: 



Peter Dibble 

19 Fountain Street 

Rochester, NY 14620 



NOTE 



This month's column is going to set a 
record for brevity. I am feeling the pain 
that is part of graduate studies very 
clearly this month. 

Part of the initiation process at the 
University of Rochester Computer Science 
Department is a form of torture called 
qualifying exams. They are a series of 
exams covering all the areas of Computer 
Science. I have to pass them before I can 
take the next step toward a PhD. I'm in 
the middle of them; writing this column 
counts as relaxation. 

The labs at school are filling with 
68x based computers. The largest is (of 
course) the Butterfly. We're hoping that 
by the end of the year we'll have a baby 
Butterfly and a big Butterfly with 128 
68020s between them. 

We also have gaggles of Suns. They 
are personal work stations with a 68010, a 
few megabytes of memory, a hard disk, a 
big screen, and an ethernet connection. 
They run BSD Unix. It took us a while to 
learn how nice they are, but I just read 
a note on the electronic bulletin board 
that threatened to set up a formal system 
for scheduling Suns if we couldn't do it 
Informally. That's a sure sign of their 
popularity. 

Personal work station is an 
interesting phrase. I think it means 



expensive personal computer. The main 
difference is in the history of their 
development. At one time a group of 
engineers would share a mini computer or a 
work station for design work. Personal 
work stations are computers with enough 
resources to do the class of work that 
used to be done by those shared computers 
but with a low enough price to be 
reasonable part of an individual's office 
equipment. It's Interesting to note that 
most personal work stations seem to be 
built around 68010 microprocessors. 

I haven't had much to say about 
school. I waited until the middle of 
qualifying exams before I reported on it. 
In the spirit of a good reviewer, I 
wanted to see the thing at its worst 
before I made critical remarks. 

Here's my report: "Come on in! The 
water's fine." We have a wonderful 
collection of toys, but the thing that 
really makes it worth kicking a big hole 
in my career to go back to school is the 
people. 

The Module Directory 

The storage of modules In 0S-9 Level 
Two is one of the most important 
differences between Levels One and Two. 
Under 0S-9 Level One modules a simply read 
into memory. The only aspect of module 
storage that needs to be kept in mind is 
that each module takes an integral number 
of memory pages. Level Two does away with 
that restriction, but the underlying 
mechanism is complicated. 

The entries in an 0S-9 Level Two 
module directory are much like Level One 
entries. One field, the DAT (Dynamic 
Address Translator) image pointer, makes 
all the difference. DAT images for 
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modules are special things. 

OS-9 Level Two builds a DAT image for 
each process. They are attached to the 
process descriptor. Each time a process 
is dispatched, the process's DAT image is 
loaded into the DAT hardware. That is how 
every process is given its own address 
space. 

There are two ways of finding a 
location in memory. Either give its real 
address (24 bits long) and use the service 
requests that handle extended addresses, 
or give a DAT image and an offset in the 
address space defined by that DAT image. 

Microware could have decided to save 
the locations of modules as 24-bit 
addresses. That would have made the Level 
Two module storage mechanism seem a lot 
like the Level One system. It seems like 
that would be simple, but there is a 
problem: In order to keep things 
reasonably simple, a module would have to 
be stored in contiguous storage. That way 
the Module Directory could specify the 
location of the module by a start address 
and a length. Early users of Level Two 
will remember waiting eagerly for the 
release that supported discontinuous 
memory for modules. 

The problem was that long blocks of 
empty memory are hard to find in a hard 
working system. It usually isn't an 
issue; with the DAT hardware, chunks of 
memory can be assembled from all over to 
build a new address space. Sometimes a 
program couldn't be started because it 
couldn't find enough contiguous memory to 
load a module. That problem was supposed 
to have been left behind in Level One. I 
don't know, but I bet the early Level Two 
versions kept module locations as a start 
address and a length in the Module 
Directory. 

I have to submit this column now. 
I'll continue with modules in another 
column, but I won't keep you in suspense. 
The solution to the module problem for 
Level Two involves creating special 
address spaces just to hold modules. 

Hot Scoops 

The OS-9 Users Croup software library 
has grown into a very substantial 
collection. I . hear that there are about 
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35 disks in it. Lots of interesting 

programs (including XLisp). 

*** 

I heard from Don Williams just 
moments ago. My collected user notes are 
not only being published in this country 
as of about now, they are also going to be 
published in Japan — in Japanese! I hope 
1 won't have to read proofs for that 
edition. My brother, who has been 
studying Japanese hard for years, tells me 
that it is a difficult language to learn. 



Editor's Note: First, about the 
collection of disk for the users group. A 
couple of years ago, or so, we sent 
someone in the group (they had called 
after we had paid our dues) and suggested 
1 send some disk (5 inch) and they would 
get the collection to us. Dunno what 
happened but not only did we not get the 
disk but we don't even get the newsletter. 
The only thing we have EVER gotten from 
the users group is a couple of 'releases' 
from Dale, who was president at the time. 
Which we promptly ran - unedited! Since 
then I have bought this up with an officer 
of the group and was told, "havn't ever 
gotten mine either." 

The reason I go into this, in this 
type forum is that I hope to stir someone. 
OS-9 is a fine operating system, and it 
deserves better. I guess the problem is 
that like many volunteer organizations 
things move at a more casual pace. Also 
there have been changes of the guard and 
lost paperwork, etc. All of which tend to 
contribute to the confusion. However, I 
get newsletters, clippings, notes, disk 
with source programs and all sort of other 
media stuff, all without asking. But 
getting something out of the OS-9 users 
group is a pain, to say the least. Also I 
was told at one time that we (68 Micro 
Journal) had 'peeved' a couple of the 
officers. Well, how bout that. If you 
can't do the Job, then don't make waves 
and over extend yourself. You will only 
make it worse for the other fellows, who 
sweat to make It a go. Like I said a few 
lines back - OS-9 is too good a product to 
have black marks because of some folks who 
can't or won't do it right. 

The other side of the coin is that 
probably 99 percent of the rest of the 
members are humping to make it what it 
should be. A pity that a few loud mouths 
can smut up a good thing 1 



Peter Dibble has done yeoman effort in 
his getting OS-9 material to us each 
month. We ( I especially) know what he has 
and still is, going through. If I were 
Microware I would certainly make Peter a 
"Knight of the CPU' or some other good and 
respected award. He has put his sweat 
where some of the others have only slide 
their mouths by. He has put up, rather 
than shut up. And as for us, Peter Dibble 
is TOP DRAWER! If it were not for guys 
like Peter Dibble, Ron Anderson, Phil 
Lucido, Bud Pass, Bob Nay, Ron Voights, 
Carl Mann, Norm Coramo, Theo Elbert, and 
everyone of the other 2,041 who have been 
published in 68 Micro Journal, we would 
not have made it. And that also goes for 
a lot of those who support us with their 
advertising. Together we have ALL made 
had it work. And I personally am glad it 
went and goes as it does. We use the fool 
out of OS-9 here at CPI and we know what a 
fine system it is. So it really hasn't 
made much difference to us, we get along 
Just fine with or without the users group. 
But for those who need the help a real 
users group can provide (check into the 
"C" users group sometimes, or others) I 
feel something has gone bongs. How about 
it fellows? - oops, sorry, and GALS? 

Also we are glad that Peters published 
notes are to be published in Japan. I 
will have our version ready for sale by 
the time you read this (I hope). I let 
the rights to Japan this week and Peter 
will receive the much needed financial 
rewards from this that he so well 
deserves. OS-9 is a very popular system 
in Japan. Who knows, when the Japs take 
over; computer market made stale by 
everyone here wanting to look like 'Big 
Blue" thus killing any of the inventive 
efforts that once marked the USA as the 
leaders in the micro field. When they do 
the computer market like they did the 
electronic, auto, camera, watch, etc. 
markets, who knows - OS-9 might replace 
M-DOS. In Japan Big Blue ain't all that 
big! 

Anyway, congratulations Peter, from all 
of us here, we are mighty proud to be 
associated with an internationally famous 
and published (soon to be) author. Just 
don't forget us. Now about that new 
publishing thing that can make a pile, 
well, 

now that you 

DMW 
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"C" User Notes 



Cdgar H. (Bod) Pass, Ph.D. 
I4S4 Latta Lane 
Conyers, Ca J0207 



INTRODUCTION 

This chapter discusses several of the 
major current implementations of C 
compilers on the 6809 and the debugging of 
C programs on any computer system. 



VERSIONS OF C 

There are many implementations of C on the 
6809, 68000, 8080, 8088, Z-80, and other 
microprocessors. Like most other products, 
the completeness and usability of the 
implementations vary considerably. 
However, there are several major groups 
into which many of the implementations 
fall. The most complete compilers are 
advertised as Full-C or UNIX-like, and 
claim to implement K & R's C almost 
entirely. The least complete compilers are 
advertised as "Small-C" and implement only 
specific subsets of K & R's C. Many C 
compilers are complete in some areas, such 
as verbs, but are incomplete in some 
areas, such as floating-point variable 
types. Many C compilers claim to be 
complete implementations of K & R's C, but 
actually provide far fewer facilities. 

Essentially all of the non-Full C 
compilers were based on or derived from 
Ron Cain's Small C, published in Doctor 
Dobb's Journal 45, which was written for 
the 8080. It has the advantage of being 
written in its own language, thus 
facilitating porting to new 
implementations. It has the disadvantage 
of having several major bugs, most of 
which were also ported to the new 
implementations. Most of the Small C 
compilers developed for the 6809 are no 
longer marketed, with the major exception 
of Dyna-C and Dugger's C. 



PROGRAM GENERATION 

All current versions of C for the 6809 
generate some form of assembler language 
as an intermediate or final output. This 
code file is combined with other source 
and object modules and is compiled to 
produce an object module. This object 
module is then combined with other object 
modules to produce a final executable 
program. The details by which these steps 
are accomplished vary significantly among 
the implementations. 

Several of the Small C's generate 
assembler code in standard Motorola 
format, thus avoiding the necessity of 
developing a special assembler, linker, or 
other support programs. Under FLEX, all 
the Small C's target the TSC assembler 
except for Everhart's, which targets the 
SWTPC assembler. However, the entire C 
library must either be assembled with the 
user program or pre-assembled and 
pre-loaded before the user program may be 
run. 

The Wordsworth C compilers use the RL0AD 
linking program and several special macros 
for the TSC assembler to avoid some of 
these problems. RL0AD uses special 
external references generated with the 
object program to indicate which link 
address need to be established in order to 
bind a program together. It requires a 
separate file to indicate which files are 
to be included in the linking process. 
The C library may be included as one unit 
or it may be included as separate modules 
to save memory space and load time. In 
the latter case, every library routine 
called by the program or by another 
library routine used by the program must 
be manually determined and listed in the 
control file. 

The Introl C and 

Mi crowa re/Tandy /Wind rush/McCosh compilers 
use their own special assembler and 
linking loaders. With one command, the 
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user can produce an object module 
(non-executable) from a source C program. 
With a separate command, the user can 
produce an executable object program from 
one or more C object nodules (exactly one 
of which is a main program) and all called 
libraries. They use a tree-structured 
approach by linking to "main", which can 
link to other modules, which can 
themselves link to other modules, etc. In 
effect, they automatically construct (and 
are able to optionally output) the table 
required by Wordsworth's RLOAD to be 
manually constructed and input by the 
user. 



output from the compiler and correct the 
most common and blatant sequences of 
inefficient code. 

The Wordsworth optimizer is a peephole 
optimizer, utilizing a 4-line peephole. 
It processes the following sequences: 



OPTIMIZED 

TFR X,D 
TFR D,X 

TFR X,D 
PSHS A,B 



ORIGINAL 



(Removed) 



PSHS X 



CODE GENERATION 

In terms of the Full C compilers, both 
Introl and McCosh C compilers provide 
optimization. It is integral to the 
Introl compiler, whereas it is provided as 
an external program in the McCosh 
compiler, although it may be invoked from 
the command line. The McCosh optimizer is 
claimed to save about HZ of the code and 
time required to process the object code, 
when compared to the original code. 

Since most of the Small C compilers are 
direct descendants of Ron Cain's Small C 
compiler, the object code they produce 
causes a 6809 to attempt to emulate an 
8080. Of course, the code generated by 
this process is extremely inefficient, 
producing such code as the following: 



LEAX p.S 
TFR X,D 
TFR D,X 

LDD 0,X 

TFR X,D 
PSHS A.B 
TFR D,X 

TFR S,D 
TFR D,X 



LOD p,S 



PSHS X 



TFR S,X 



When these substitutions are made, 
Wordsworth claims that the result should 
take up from 65X to 85% of the space 
required for the Small C compiler output. 

The Everhart optimizer is also a peephole 
optimizer, although it has a variable size 
peephole. It processes the following 
sequences: 



* 


int i; 




* 


1-0; 






TFR 


S,D 




PSHS 


A.B 




LDD 


#0 




STD 


,s++ 



whereas Introl C would produce the 
following code for the same program 
fragment : 

CLRA 
CLRB 
STD 0,S 

which is probably similar to what most 
assembly programmers would have written to 
accomplish the same operation. 

Rather than correct the compiler to emit 
better code, Wordsworth and Everhart C 
compilers provide optimization programs 
(written in C) to scan the assembler file 



OPTIMIZED ORIGINAL 

LEAS -2,S LEAS -n,S 

LEAS -2,S 

LEAY p,S LDD p,S 
TFR Y,D 
PSHS D 
LDD l.S-M-J 

LEAY p,S LDB p.S 
TFR Y,D 
PSHS D 
LDB [,S++] 

Everhart claims that the result should be 
15-20X smaller than the original after 
these substitutions have been made. 

Wordsworth's Middle C, Everhart's Small C, 
and Intersoft Small C (version 2) cleaned 
up some of the worst code generated by 
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earlier versions of C. Optimizers are 
still needed, however. Dugger's Small C 
compilers never generated code quite as 
Inefficient as intersoft Small C version 
1. However, they have many other problems 
In terms of generating Incorrect code, 
which Is far worse than Inefficient code. 

All of the C compilers reviewed here, 
except for Introl C, have the option for 
placing the C source program as comments 
In the assembler source program. This Is 
very convenient for documenting the 
generated assembler program and for 
assisting In debugging the C program, 
which leads Into the next section of this 
chapter. 



DEBUGGING C PROGRAMS 

Currently, debugging a complex C program 
on most systems can be quite an adventure. 
Following are described several possible 
means of assisting In debugging C 
programs, In order of Increasing 
sophistication, and their current 
practical uses and limitations. 

"Compiler Syntax Checking" Is provided 
automatically by all C compilers. it 
warns the user of many syntactically 
Incorrect conditions. It usually does not 
warn the user of such conditions as 
Incorrect number or type of parameters of 
a call to a function and several other 
serious conditions. The C language avoids 
many of the problems of FORTRAN and BASIC 
languages by requiring the declaration of 
all variables and typed functions before 
use. However, It allows the creation of 
new categories of problems thru the use 
and misuse of pointers. C's structured 
constructs (WHILE, SWITCH, DO, FOR, IF, 
etc.) assist the user In structuring 
programs, and the C compiler can detect 
many forms of badly-structured constructs. 

"Compiler Run-Time Checking" Is also 
provided automatically by all C compilers 
In their run-time packages, although the 
level of checking provided varies 
significantly among compilers. All check 
for common conditions such as attempting 
to read a non-existent file or an I/O 
error occurring during a read or write 
operation. However, very few of them 
validate the file pointer passed to the 
I/O routines. Both "fprlntf" and "fputs" 
require file pointers; however, "fprlntf" 
requires the file pointer as Its first 



parameter and "fputs" requires the file 
pointer as Its last parameter. 
Inconsistencies such as this can trap the 
unwary user, with potentially disastrous 
results. Another major type of run-time 
problem not detected by most C compilers 
Is the "subscript out of range" situation, 
which Is flagged by almost all BASIC 
Interpreters. This problem can easily 
cause destruction of program, data, and 
operating system routines, with disastrous 
results. 

"Desk-Checking" Is debugging performed by 
the user without the direct assistance of 
the computer. In earlier times of 
computing, when computer time was 
extremely expensive compared to human 
time, desk-checking was heavily 
emphasized. In more modern times of 
computing, desk-checking has been 
de-emphasized. There are still good uses 
for desk-checking, however, such as the 
case In which several people share one 
terminal or computer or the case In which 
the computer Is available only certain 
hours of the day or certain days of the 
week. 

"Program-Verifier Program" extend the 
syntactic and semantic checking of the C 
compiler In certain directions. The 
program "lint" on UNIX systems attempts to 
detect features of C programs which may be 
bugs, non-portable, or Inefficient. It 
checks type useage and Implicit type 
conversion very carefully. It also 
detects unreachable statements, loops 
entered at other than the top, variables 
and functions declared but unused, 
variables used but not Initialized, and 
logical expressions with constant values. 
It checks for functions returning values 
In some cases but not others, functions 
called with different numbers or types of 
arguments than the declaration, those with 
unused values, and those used with values 
but declared without them. The program 
"cchk" on micros provides a fast pre-check 
for C programs to locate errors that the C 
compilers do not specifically attempt to 
locate. It checks all types of brackets 
for correct matching and nesting. It 
checks Indentation, which It uses to 
provide checks on bracket nesting. It 
checks for dangling "else"s, for the use 
of "»" rather than "--" In a conditional 
expression, and for nested comments. When 
such programs are available, they can be 
used to great advantage to assist In 
degugglng C programs. 
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"User-Inserted Debugging Code" is used in 
C programs, just as in other languages. 
The C preprocessor facility can be used to 
great advantage to provide various levels 
of debugging code permanently in a source 
program without affecting the production 
version of the program. As required by 
later debugging or maintenance, the 
debugging code may be selectively 
re-activated. This debugging code may be 
either passive or active. Passive code 
usually takes the form of "prlntf" or 
similar statements to output location 
codes and values of indicative variables. 
These outputs may be unconditional or 
based upon various conditions in the 
program. Active code can take many forms, 
but usually takes the form of code which 
checks for unacceptable conditions and 
takes corrective action after reporting 
the problem, so that program execution and 
debugging may continue. An example of 
active debugging code would be a function 
which checks a subscript for being within 
a specified range for a table; if it is, 
the function returns the subscript value 
unchanged; if it is not, the function 
prints an error message and returns either 
zero or the maximum value allowed. Used 
properly (and sparingly), some basic 
debugging code could be left permanently 
in a program to assist in finding 
operational problems. 

"Debugging Programs" may be used to assist 
the user in locating problems in the 
object program produced by assembling (and 
perhaps linking) the C program and 
libraries. The TSC DEBUG Program for FLEX 
is a good example of programs providing 
the features required to do an adequate 
job of debugging object programs. It 
allows the simulation of programs written 
for the host system (some allow the 
simulation of programs written for other 
systems, such as for dedicated 
single-board computers). This simulation 
may be performed in single-step, 
step-untll-trapped , or In several other 
modes of operation. It allows memory 
inspection and modification In 
hexadecimal, hexadecimal and alpha, or 
instruction formats. It allows the 
establishment of breakpoints to trap 
real-time execution of program code, as 
opposed to simulated execution. It allows 
the protection of memory (during 
simulation) in execute-protect, 
wrlte-protect , memory-protect, and 



simulate-protect modes. It provides a 
simple hexadecimal calculator for address 
and other calculations required by the 
user during the simulation. It provides 
transfer and stack nest level traps to 
help detect bad changes of control and bad 
stack handling. It provides a traceback 
of the previous 255 simulated 
instructions. It provides a means of 
simulating Interrupts. It provides other 
capabilities designed to enhance its use, 
such as the ability to issue FLEX 
commands. Its primary problem is that it 
Is an absolute debugger, and the user must 
know the absolute addresses of all 
routines and variables of interest in the 
C program. When object modules are linked 
together, their addresses will depend upon 
the preceding modules included In the link 
process. Several of the full-C compilers 
provide a link-edit map, as an optional 
output, providing the names, starting 
addresses and lengths of each module 
comprising an object program. If this map 
is not available, the user must have an 
assembled listing of each module and 
perform the hex arithmetic required to 
relocate each module. With some 
experience in using a good debugger, the 
user can become quite proficient. 

"Symbolic Debugging Programs" have most or 
all of the capabilities of normal 
dubugging programs plus the ability to use 
the files generated by the assembler and 
linker describing the locations, types, 
and lengths of all program variables and 
program modules. Then, most of the 
arithmetic required to be done by the user 
to relocate modules and variables may be 
done automatically, and the debugging 
process is much more similar to debugging 
a program using a BASIC interpreter. The 
user is able to inspect and modify the 
values of variables by their names from 
the original C program, a very powerful 
debugging tool. Symbolic debuggers for C 
programs are available for UNIX, BDS, and 
other versions of C, but are not yet 
available for any 6809 C compilers. 



SUMMARY 

This chapter discussed most of the major 
implementations of C available for the 
6809. It summarized how the compilers 
generate object modules and how 
programmers debug the programs produced by 
these C compilers. 
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68000 

User Notes 



Phillip Lucido 
2320 Saratoga Drive 
Shurpsville. Pa 16150 



It's HERE HERE HERE! 



If you've been faithfully following this 
column lately, then you know that I have 
been waiting (rather gracelessly) for ny copy 
of Inside Macintosh. This is the manual 
which is an absolute requirement for any 
programming on the Mac (I'm talking about 
writing stand-alone applications here, not 
programs running under Basic or Pascal 
interpreters). Well, after about two 
months, it has arrived, with many sighs of 
relief from yours truly. 

First, the physical characteristics. This 
book is a monster! It is 1450 pages long, 
divided into no less than 33 chapters. At 
first glance, it appears to be a phone book 
for a decent sized city, of perhaps a couple 
of million people. The resemblance 
continues when you open the book, since the 
paper used is similar to the thin stock used 
in a phone book. 

The book is Labelled a 'Promotional Edition'. 
A note on the inside front cover explains 
that, while plans have been made with "a 
major publisher" for a final edition to be 
sold "at better bookstores everywhere by 
late summer '85," this edition was made 
available in the interim, to handle the 
current demand. This edition is thus 
preliminary and subject to change. 

For all of its length, Inside Macintosh is 
still densely packed with information. It is 
organized into a number of separate 
chapters, with each explaining a particular 
aspect of Macintosh programming. These 



include using the Qulckdraw graphics 
routines, controlling the menu selection 
process with the Menu Manager, and handling 
windows with the Window Manager. Each 
chapter is well organized, starting with a 
brief description of the chapter's subject, 
and slowly progressing to more and more 
detailed information, followed by tables and 
glossaries quickly summarizing the entire 
chapter. There is also an index for the 
entire manual. 

If you're interested in writing stand-alone 
applications or desk accessories for the 
Mac, get this manual. It covers Just about 
every aspect of software programming you 
might ever encounter, in perhaps greater 
depth than you might like. I was nearly 
overwhelmed at first when confronted with 
this thick compendium of knowledge. I ended 
up turning off my Mac, sitting down, and 
reading the manual straight through. This 
took about two weeks of free time, but was 
well worth the understanding it brought . A 
useful hint - I found it handy to put index 
tabs at the start of each chapter, so I 
could quickly dig my way through the manual. 
This becomes necessary when you start 
searching for information while programming, 
since this often seems to involve cross 
referencing back and forth through various 
sections of the manual. 

Once I've read IM, a number of things become 
clear. First, Apple has done a very nice 
job in writing the ROM used in the 
Macintosh, and in defining an environment 
for future programming of applications. A 
lot of thought has obviously gone into the 
machine, especially as regards the 'user 
interface', the manner in which the machine 
communicates with the user. The various 
Macintosh concepts, such as windows, dialog 
and alert boxes, pull-down menus, etc., are 
actually all predefined functions, built into 
the ROM. For the most part, a program must 
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simply recognize when a certain action Is to 
be taken, like the mouse button being 
pressed Inside the menu bar, Indicating a 
menu selection, and call the ROM routine 
which performs the specific action. Just 
about everything Is already done for the 
programmer, whose only job Is to provide the 
glue between these various ROM routines. 

Another point which becomes obvious on 
reading 1M, though, is that a lot of glue is 
required. There are about 500 different 
built-in routines (system traps) provided in 
the Macintosh and described in the manual. 
Programming is not going to be easy, since 
so many trap functions will need to be used. 
As an example, consider a minimal program 
you might write in C when starting to 
produce useful code. No more than a 
handful of routines, such as printf, strcpy, 
and geCc, need to be learned before you can 
produce a program which is actually capable 
of any normal complexity. For the 
Macintosh, though, you need to use at least 
25 different trap functions just to 
implement a minimum program with windows, 
simple text-handling or graphics, and such 
standard Macintosh concepts like menus. 

So how am I to cover the Macintosh? 
Frankly, I'm a little puzzled. There is too 
much introductory material for a small 
column like this to cover in any short 
period of time. There is just no substitute 
for actually getting your own copy of Inside 
Macintosh. There are some things I can do, 
though. If there is enough interest, I can 
present short program sections which have 
to do with a specific problem in Macintosh 
programming, like writing desk accessories 
or getting a menu to work. Entire programs 
of any complexity will be difficult, because 
of their length. In any case, I need your 
letters to guide me. 

My First Program 

Having said that entire programs are too 
long for this column, I now present a 
complete program for your edification. 
Actually, I'm not being too self- 
contradictory. This program is that minimal 
example I described earlier. All it does is 
put a window on the screen, in which text 
can be placed via the keyboard. The window 
can be dragged around on the screen, though 
Its size cannot be changed. The text can 
be selected via the mouse, and cut and 
pasted via menu selections. The necessary 
code for using menus to select desk 



accessories is also present. 

This program is in no way original with me. 
In fact, it is a simple adaptation in C of 
the sample Pascal program to be found in 
the Road Map chapter of the manual. I did 
this program just to get used to the 
procedures necessary to develop code for 
the Mac. It is written with extensive 
comments, so you can hopefully follow along 
without too much difficulty. 

Before going through the program, some 
preliminary explanation is in order. A 
Macintosh program is not usually written as 
one monolithic piece of code. Instead, it 
is divided into "resources." These are 
pieces of data, describing some element of 
the application, such as a window or menu. 
By keeping these descriptions separate from 
the actual code, it becomes a much simpler 
job to modify the entire application, say for 
a foreign language. When the code needs to 
create a menu or window, it just passes a 
"resource ID" to a trap function, which 
automatically reads the resource from the 
disk (there is obviously much more involved 
here - I am just too pressed for space to 
go over it more deeply). 

On to the program. After the initial 
comments come a number of #iuclude 
statements, which read some standard header 
files provided with the C compiler (Aztec C 
in this case). These files define the 
various structures used in Macintosh 
programs, as well as the names of the built- 
in trap functions which are available. 
Following this is a definition of the 
manifest constant NULL. An aside here - in 
this C, integers are 16 bit quantities, while 
pointers are 32 bits. If I defined NULL as 
0, then using it in a function call would 
result in the wrong size value being placed 
on the stack. Casting to a character 
pointer forces a 32 bit value. This is also 
preferable to "#deflne NULL OL", which is 
not portable to other machines. 

Next, the resource ID definitions supply the 
numbers of the menu resources used by this 
program. The various menus are defined 
separately and referred to by these IDs. 
Various definitions follow having to do with 
the order of menus and the order of items 
within the Edit menu, as well as the 
resource ID for the window. Finally, global 
variables used in the program are defined, 
using the standard Macintosh structure 
names . 
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Now for the code. The program starts by 
initializing just about everything in sight. 
These calls bring the various sub-systems in 
the ROM to a known starting point. A C 
function, SetUpMenas(), creates the menu 
bar. A number of routines define the 
characteristics of the window to be used, 
and enable the use of the text handling 
traps with the window. 

Next comes the main loop. A Macintosh 
program is quite different from a normal 
program, in that it is event-driven instead 
of algorithm-driven. That is, a Macintosh 
program usually sits in a loop, waiting for 
the user to do something like press the 
mouse button or a keyboard key. When an 
event is detected, the proper action is 
taken. In contrast, most programs on other 
computers have a United number of options 
at each step, which follow one another in a 
strict order. A Mac program must be 
prepared for anything at any time (the heart 
of "user-friendly" applications). 

The main event loop performs actions which 
must be constantly taken care of, then 
checks to see if any event has taken place. 
If yes, then a switch statement chooses 
between the various possibilities. The most 
complicated of these is the mouse button 
being pressed. When this happens, another 
switch uses a trap function to see where 
the mouse was located at the time. If the 
mouse was in the menu bar, then a C 
function is called to do the menu selection. 
Inside a window created by a desk accessory, 
another trap is called to handle the event. 
If the mouse was in the drag region (the 
title) of this program's window, then yet 
another trap is used to move the window 
around the screen. Finally, if the mouse is 
in the main part of the window, the window 
is either selected, or if it is already 
active, the mouse click is used to select 
text within the window. 

Now for the other events. A keypress is 
passed to a text handling trap, which takes 
care of storing it in memory and displaying 
it within the window. An activate event 
occurs when the program's window is 
activated or deactivated (by desk 
accessories become inactive or active, 
respectively) with the proper trap functions 
being called. Finally, an update event 
occurs when something that was obscuring 
the window Is removed, so the contents of 
the window must be redrawn. 



Next come the subroutines. SetUpMenusO 
reads the resource definitions of the menus 
from the disk, and adds the names of the 
desk accessories to the Apple menu. The 
menu bar is then created and drawn (two 
separate steps). DoConnandO is called 
whenever a mouse click occurs in the menu 
bar. It is passed the result of a trap 
function that handles the entire menu 
display and selection procedure, which 
returns a number describing the chosen menu 
and item within that menu. A switch 
statement selects between the various 
menus. For the Apple menu, the selected 
desk accessory is started. The only entry 
in the File menu is Quit, so a flag that will 
terminate the event loop is set. For the 
Edit menu, the standard cut and paste 
options are passed directly to the text 
handling trap functions. 

That's the C program. The second listing is 
the input used for RMaker, the resource 
compiler. This text file describes the 
various resources used by the program. The 
three menu resources are defined, followed 
by the window resource definition. At the 
end, the actual code for the program is 
named. RMaker reads this file, creating the 
resources in the format expected by the 
Macintosh trap routines. For a complete 
description, read the RMaker documentation 
which should be available with your compiler 
system. RMaker is from Apple, but is 
normally available only as a part of a 
software development package. 

Sorry if this description seems a bit 
hurried. As you can see, a Macintosh 
program is complicated, so even this small 
example pushes the limits of this column. 
(Also, I'm writing this at 11:30 the night 
before I leave on vacation - oh well.) If 
you want to know more, such as what the 
individual trap functions used are actually 
doing, get IM and be prepared to exert much 
brain sweat. 

OS-9/68K Make Bug 

While playing around with the new «ake 
utility in 0S-9/68K, I came across a fairly 
serious bug. Fortunately, I was able to 
come up with a temporary fix. As the bug 
turns out to be something easily done in C 
programs, I decided to describe it here. 

make uses some standard names, such as 
ODIM, SDIK, and SDH. These can be assigned 
new string values, which modify the 
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operation of make. An assignment may only 
be done once, though, with any extra 
assignments Ignored. When I was using make, 
I found that even the first assignment was 
being ignored. To further confuse the 
issue, I was sure that I had encountered no 
such problem the night before, while using 
the same text files. 

So much for the symptoms. By using the 
debugger and disassembling portions of the 
code, I was able to determine what the 
problem was. The code that checks for a 
second assignment to the standard names 
does so by comparing the current name value 
with the null string "". If the string is 
null, then no assignment has been done. 
The standard names are simply character 
pointers, which should point to a zero byte 
(the null string) at the start of the 
program. That is, the variables must be 
initialized by char *sdir - '"*;. 

Here's the bug. Instead of initializing 
these variables, they are uninitialized, so 
they start out holding the 32 bit pointer 
value zero, or NULL. Checking for a null 
string results in looking at the byte 
addressed by the pointer, which will be the 
byte at address $000000. The aake program 
has no control over the value at this 
address. If it happens to be a zero, make 
will run successfully. If it is not a zero, 
then make will fail. 

Now, the solution. In my computer, a 
program running in user state, like most 
procedures under OS-9, has RAM at address 
$000000. To force this value to zero, I 
wrote a short C program, clearO, which I 
placed in the startup file. Here is the 
entire listing of clearO: 



maln() 

{ 

*(char *)0 

I 



0; 



End result - one bug fixed (or at least 
successfully masked). 



Editor's Note: O.K. Phil, here Is the vote 
for additional tutorial (desk-accessories, 
etc.), as you ask above. Everybody votes - 
YES. Thanks Phil. 



DMW 



V 



A seall eaaple application written in Axtec C. 

It dlapleya a alnfle, fixed-eize window lo which th* uaer 

can enter and adit taut. 

Adapted froai th« Peecal progrea Seep, la the Injlde KacLotoah 
aenuel (Road Hap, page 15). 



♦include (qulckdrew.h> 
♦Include <aenu.b> 
♦Include (wlndov. h> 
llncluda (textedtt.h> 
♦Include <event.h> 
♦include <d«ak.h> 
lloclude (lnlte.h) 



♦define NULL 



((char •) 0) 



/■ event record Modifier elating from event. h */ 
♦define actlveHef 0x00(11 

l m raaource IDn/nenu IDs for Apple, File, and Edit venue */ 
'define enplelD 12B 

♦define ftlelO 12» 

♦define adit ID 1)0 

/• Index for each vnu In array of aanu handle* •/ 
♦define eppleH 

♦define flleM 1 

♦define edltH 2 



♦define BeQuCount 
♦define wtodowlD 



J 
I2« 



/• total number of Beau* */ 

/• resource ID for eppllcotlon'e window a/ 



/■ aenu Item nuaber* Identifying coeaunde lo Edit aenu •/ 



♦define undoCoaauod 
♦define cutCoaaend 
♦define copyCoaoand 
♦define peetvCoenaod 
♦define cleerCoaaand 



NaouHaodle ayMenue I aenu Count J ; 
tact dragRect, txRect ; 
Boolean extended . dnnaflag; 
tventRecord ayEvent ; 
WtndowRecord wRecord; 
WlndowPtr ayVlndnw. whlchWladow; 
TEHandle texto; 



*eln() 
I 



/* perform atendard Initial! tat lone •/ 

InilCraf (etna Fort); 

InltPontaO; 

FlvehEvente(evoryEvent.O); 

lnltwindowaO; 

Inline nua(); 

TtlnltO; 

lnltDlaloga(KUU.); 

InltCureorO; 

/• eat up eenut and aenu bar */ 

SetllpftenueO; 

/* call QuickDraw to aat dregglng boundarlea; enaure at */ 

/* laaet 4 by 4 plsele will remain vtalbla •/ 

SatRect(4dragRect,4,24, 

ecreenBlte.bounde.rlght-t .ecreennl te .bounda.bot toa-4) ; 
/■ flag weed to detect when Quit coewund la choeen •/ 
doaerlag - FALSI; 
/* put up eppllcetlon window a/ 
ayWlodow - GetNewv)lodo«(wlndnwlD,4wR*cnrd.-lL); 
/* cell QuickDraw to eel current Ire! Port to thl.e window */ 
SetPorttayVlndow); 

/• deflna recteogle for text In window; cell QuickDraw to •/ 
/• brlnf K 1" * plxala froa left and rlgbt adgea of window •/ 
»0vBea(4thaFort->portftect,etlRect,elxeo(<x*ct)); 
Intellect (at xkect ,4,0); 

/* cell TextEdit to prepare for receiving text */ 
tealH - TUew(4txlact ,4txMct); 
/• aalo event loop •/ 
wlille (IdonePlag) { 

/• call Daak Manager to perfora eoy periodic actlooe •/ 

/* dailnad for deek ecceeaorlaa */ 

SyeleaTaekO; 

/• call TextEdit to aake vertical bar blink «/ 

Illdle(texlH); 

/• cell Toolbox gvent Hanager to gat the neat event •/ 

/• that the application ahould handle */ 
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Get Next Even t(everyEvaot .AayEveot); 

ewltch (ayCvaot .whet) ( 

/• nouee butCOD down: call Window aenagar CO laaro where •/ 

caaa aouaaDown: 

awltch (FlndWlndow(paaa(nyr.vaot. where). 4wMchUlndo*>) ( 
/• aaau bar: call Meou Kanegar to laaro which command •/ 
caaa loXanuberi 

DoCoamandOtoou&alact < paaa(ayEvaot .where)) > ; 
bruit; 
/• daik ecceaeory window: call Peak Manager to handle */ 
caat InSyeWlodow: 

Syet«aCllck(4ayEvoot .vhlchWlodow) ; 
break; 
/' tltl* bar: call window Manager to drag •/ 
caaa loDrag: 

DragWln4ow( whlchVladow , paae<ayEvaot . wbera) ,4dragkect ) ; 
break; 
/■ body of application window V 
caaa loCooteot: 

/• call window Manager to check whether lt'a tha •/ 
/• active window, and aake It ectlve If oot •/ 
If (whlchuiodnw 1- FrootvlndowO) 

Sa lectWlndow< whlchWludow) ; 
elea | 

/• lt'a elreedy active: call QuickDraw to •/ 
/• convert to window coordloecee for TECllck */ 
ClobalTolocol(4ayEvent .where); 
/• call TextEdit to proceea event, paealng */ 
I- etetue of ahlft key •/ 

eetended - (ayEvaat .aodlf lera 1 ehlftkey) t- 0; 
TEC1 lck(paae( ay Event . where), extend ed.textK); 
] 

break; 
) 

break; 

/• key praaaed: paaa character CO TextEdit If scant •/ 
/• for eppllcetloo window, alee lgnnre It •/ 
caae keyDowo. 
caaa autokay: 

If (ayUladov — *rontWlndow( )) 

TEftayC(cber) (ayEvaot .aaeaege a cherCodeMeek). taxth); 
break; 
/• activate event •/ 
caaa actlvaceEvt: 

If (aylvaot. aodlf lara 4 octlvoFlag) ( 

/• application window la becoming active: call */ 
/• TextEdit to highlight aalactloo or dlaplay •/ 
/• blinking vertical bar. and call Mean Haoagar •/ 
/• to dlaeble Undo, elnce eppllcetloo doeeo't */ 
/* euppnrt Undo */ 
TEActlvatedextH); 

Dleeblelt ea< eyMenua led 1 1 K] .undoCommand) ; 
I elea I 

/* eppllcetloo window le becoming Inactive: */ 
/• uohighllght aalectloo nr remove blinking •/ 
/• vertlcel bar, and enable Undo. aloc« deak */ 
/• acceaeory may auppnrt It «/ 
TEDeactlvata(camtH); 

Enebleltea(ayMenuoiodltK) .uodoCoeaoand) ; 
I 

braak; 
/■ update event: window eppeerooce aeede updating */ 
caat updeteEvt: 

/• call Window manager to begin update •/ 
RegloUpdateUwlodowPtr) ayEvent .neeaege); 
/• cell QuickDraw to oraae text eree •/ 
Ereeeke<t(4thoPurt-)portXect); 
/* call TextEdit to updete the text •/ 
TEUpdato(4theFort->portRect .tettH); 
/• call Wlndnw Kaneger to aod update */ 
XadUpdeta((wlndowPtr) ayEvent .aettage); 
break; 
) 



/* Sat up toe aeaue and the aaau bar •/ 

SetUsKeoueO 

1 

regleter lot 1; 

/* read Apple aaau froa raeource file */ 

ayNenua(oppleM] - CatHeau(opplelD) ; 

/a add deak ecceaeory name* to Apple Menu •/ 

AddReiMenu(eyMeaualeppleM]. - MV>'); 

/* read File aaau froa reeowrce file •/ 

ayMenuelflleM] - GetNeou(f UelD); 

/* road Edit aaau froa raeource file */ 

wrHenualadUK] • CetMeo»< edit ID) ; 

/* laatell meoue In aenu bar and draw tha aaau bar */ 

for (1 - 0: 1 < aeiwCauot; ♦*! ) 

loaortMaou(ayMenua(l],0) ; 
DrawHanuEarC); 



/• Execute covxoand epaclflad by afteault, 
DoComat od ( aJure u 1 1 ) 

uoalgned long aJteoult; 



f 



char neaatJOh 
raglater abort theltea; 



the reeult nf NanuSalect •/ 



•/ 



theltea - aJteeult ; /■ 4 byte long Into 2 byte ehort 

/• praceee by aanu ID la high-order word of aJLeeult V 
awltch ((abort) (aReiult » 14)) I 
caa* applelD: /* apple aanu «/ 

/• call aanu aanager to get deek eccaaaory aaae, aod */ 
/• call Deak Kanagar to opeo acceeeory */ 
Catltea(ayNanuelepplai] . thai tea, neae); 
Dpeauaakkcc(naaa); 

/• cell QuickDraw to reetore eppllcetloo window ea */ 
/• grefPort to draw In (alght have been changed */ 
/• during OpenOeekAcc) */ 
SetPort(arw'indow); 
break. 
ceee fllelDi /• file aanu •/ 

/' Quit - aaln loop repeata until donePlag 1< TRUE */ 
donerleg - TRUE; 
break; 
caaa edltlD: /• Edit aanu «/ 

/* call Deek Manager to handle editing command If •/ 
/• daak ecceaeory la the ectlve window, elee perfora ■/ 
/• tha proper editing coeaulnd In the application */ 
/• window ualog TextEdit •/ 
If (ISyeceaEdlt(tholtea - I)) 
awltch (theltea) [ 
caae cutCoawind: 
TECut(textU); 
break; 
ceae copyCoamand: 
TECapy(toatH); 
break; 
caaa peeteCommand: 
TEFeoteUextU); 
breek; 
ceee cleerCoenxaod: 
TEuelete(toatM); 
braak; 



1 
break; 

to Indicate coaplatloa of coeaxand. call Heou Manager •/ 
to unhighllght aaau title (highlighted by MenuSelecc */ 



nlllteKeau(O); 



* eeaple.r 

* Raeource Compiler Input file for Sample application 

* Written lo Aatac C, froa the orlgloal Peecol vereloa 

* lo Inalda Kaclotoeh 

* Philip Lucldo. Hay 10, 1965 

Junk/eample 
APPLSAXP 

Type MENU 
.1" (4) 

* the epple eyabol 
\1« 

.129 (4) 

rile 

Quit 

.110 (4) 
Edit 

(Undo 

(- 

Cut 

Copy 

Paate 

Cleer 

Type WIHD 
.118 Ob) 

4 Sample 

JO 40 300 4J0 
Vlelble SoGoxwey 

4 


Type SAMP - STR 

,0 
Saaplo Varoloo 1.0 — Nay 10. 19B5 



INCLUDC junk/aaavle.code 
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PART 4 - ADA PROGRAM UNITS 

In previous parts of this series, Che 
reasons behind Che developmenC of Che Ada 
language have been explored, and Che 
general features of Che language — 
particularly those that support sound 
software engineering practice — have been 
presented. Here, the program units of the 
Ada language will be considered. There are 
four forms of program units: 



subprograms 
tasks 



- packages 

- generic units 



Before individually considering each of 
these program units, it is necessary to 
recognize the various classes of 
programming languages. 

Among programming languages, five 
general classes can be identified. These 
are: 

- assembly languages 

- systems implementation languages 

- static high order languages 

- block structured languages 

- dynamic high order languages. 

These general classes differ in the manner 
in which they relate to the underlying 
machine, in the manner in which storage is 
allocated, and in the run-time support 
requirement . 

Assembly languages are unique to the 
machine upon which the resulting code is to 
be executed. In general, there is a one- 
to-one relationship between assembly 
statements and machine language 
instructions, although most modern assembly 
languages permit the use of macro- 
instructions — which are equivalent to a 



68000 

number of basic assembly instructions — 
and of some of the modern control 
constructs such as IF-THEN-ELSE and basic 
loop structures. Storage allocation is 
static, in that all required data storage 
is allocated at assembly time. Assembly 
language programs do not reflect the basic 
fabric of the program design, as do 
programs written in higher level 
languages, so that the reliability and 
modif lability of the resulting software 
suffers. Because assembly languages are 
unique to the underlying hardware, assembly 
programs are not portable. They are, 
however, usually efficient. 

Systems implementation languages, such 
as C, provide facilities such as control 
structures and type checking, but they 
preserve some of the direct access to the 
underlying hardware so useful in assembly 
languages. Statements in these languages 
translate to many machine code 
instructions. 

Static high order languages provide 
control structures and the declaration of 
variables, but the underlying machine is 
completely transparent. This fact enhances 
the portability of programs written in high 
order languages, but forces the use of 
assembly language subprograms when access 
to the underlying machine features is 
required. Storage allocation is static and 
is made at compile time. COBOL and FORTRAN 
are the best known static high order 
languages. 

Block structured languages are 
distinguished from static high level 
languages principally by their ability to 
provide a limited form of dynamic storage 
allocation called block structuring. The 
program is divided into program blocks — 
clearly delineated areas of the program, 
such as subprograms. Execution of a 
program requires a run-time support system 
that allocates storage upon entry into a 
block, and deallocates the same storage 
when the block is exited. Upon entry to 
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each block, program execution is 
interrupted so that the run-time support 
system can allocate the required storage. 
Thus, the storage requirements are not 
known at compile time. Furthermore, since 
storage allocation is dynamic, variables of 
the program are actually created and 
destroyed as the program executes, creating 
areas of the program in which certain 
variables exist, and other areas in which 
they do not. This fact underlies the 
concept of the scope of a variable or other 
program entity. Block structured languages 
are also characterized by the ability to 
classify program objects as being of a 
certain type. Like the languages ALGOL and 
Pascal, from which it was derived, the Ada 
language is a block structured language. 

Finally, dynamic high order languages 
are distinguished by the feature that all 
storage allocation is done dynamically. 
Execution of individual statements in a 
dynamic order level language can cause 
storage allocation or deallocation. The 
LISP language, now coming into wide use in 
artificial Intelligence applications, is an 
example of a dynamic high order language. 

It is important to recognize the fact 
that Ada is a block structured high order 
language, for then many of the language 
features become more understandable. For 
example, blocks in the Ada language are 
represented by the three basic program 
units — subprograms, packages, and tasks. 
Each of these program units may have a 
declarative region in which objects 
requiring storage are declared. Execution 
of code within these blocks is preceded by 
dynamic allocation of the storage required 
for execution of the block — or at least 
an implementation of the language must 
behave as though dynamic storage allocation 
takes place in this manner. The process by 
which a declaration achieves its effect in 
the Ada language is termed elaboration. It 
is important to note that elaboration takes 
place during program execution — not at 
compile- time. 

The basic functional entity in Ada is 
the program unit. An Ada program is 
composed of one or more of these program 
units. Each program unit can be 
Independently written, compiled, tested, 
and stored in a program library. A program 
unit, in turn, normally consists of two 
parts: the specification -- which contains 
information pertinent to the interfacing of 
the program unit with other program units - 
- and the body -- which contains the 
implementation details in terms of 
executable statements. The specification 



and body of a subprogram or package may 
themselves be separately compiled, further 
enhancing the capability of developing a 
large program as a set of nearly 
Independent software components. This 
feature of the Ada language is key to its 
ability to manage software complexity, and 
in turn it contributes to the reliability, 
modi f iablll t y , and reuseability of Ada 
program code. 

As with other languages, the 
subprogram in the Ada language is normally 
used to implement an algorithm. There are 
two basic kinds of subprograms -- 
procedures and functions. Procedures 
produce a series of actions by the use of 
executable statements, and they may 
communicate with the calling environment 
through the use of parameters. The 
procedure is also the basic executable unit 
of an Ada program — that is, the main 
program is a procedure. Functions, on the 
other hand, are normally used to compute a 
value, which is then returned to the 
environment under the function name. All 
of this sounds very much like the 
description of subprograms in other 
languages, but in the Ada language the 
concept of a subprogram is coupled with 
strong type checking and other features 
which tend to enhance the modif lability , 
reliability, and reusability of Ada 
software. 

Additional features of Ada's 
subprograms include the ability to 
separately declare and compile the 
specification and the body of the 
subprogram. The specification constitutes 
the interface of the subprogram with other 
program units, so that once the 
specification is compiled other program 
units — in the process of their 
compilation — may reference the 
subprogram, even if the body of the 
subprogram has not yet been compiled. The 
body, on the other hand, is the actual 
Implementation of the algorithm expressed 
by the subprogram. The body contains the 
executable code constituting the process 
Implied by the algorithm. Because the 
Interface with the calling environment is 
effected only by the specification, the 
body of a properly designed Ada subprogram 
may be modified and recompiled without 
requiring recompilation of other program 
units. 

Packages are unique to the Ada 
language, although a similar feature exists 
in the Modula-2 language. The Ada package 
is used to encapsulate groups of logically 
related entities. The term "logically 
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related entities" refers to any set of 
program entitles -- subprograms, packages, 
tasks, type declarations, or object 
declarations — grouped according to 
function or application. Thus, a package 
may be as simple as a set of constant 
declarations -- such as Engllsh-to-metrlc 
conversion factors — or It may be a set of 
subprograms and an associated set of type 
and object declaration -- such as a 
subprogram package designed to perform 
complex matrix manipulation. 

Ada's packages also may have 
separately compilable specifications and 
bodies, with the specification representing 
the Interface between the package and other 
program units by which It Is referenced. 
The ability to compile the specification 
prior to compiling the body — or for that 
matter, even prior to writing the body — 
enhances the functionality of the package 
concept In the large system design 
environment, In which several programming 
teams may be working more or less 
independently on different software 
components of the same system. The package 
concept also enhances the modif lability of 
software, since package bodies may be 
modified at will and, so long as the 
specification remains intact, the 
interfacing of the package to other program 
units remains unchanged. 

Ada's packages are also important to 
the concept of reusable software. They 
hold promise for a "black box" approach to 
software development, analogous to the 
effect that large scale integration has had 
on hardware development. Packages that 
implement certain algorithms, for example, 
can be marketed by specifying only the 
input-output relationships of the package. 
The actual implementation — represented by 
the body of the package and analogous to 
the semiconductor chip in an integrated 
circuit package — is of no concern to the 
user. Only that information contained in 
the specification — analogous to the pin- 
out configuration of an integrated circuit 
package — need be known to the user, along 
with a general description of the algorithm 
implemented. Indeed, Ada's package concept 
— combined with the portability provided 
by other language features -- offers 
promise of a software industry long needed 
but never really provided by other 
languages. 

Concurrent processing in sequential 
machines — the process by which there is 
more than one related set of sequential 
statements being executed simultaneously, 
either on separate processors or time- 
sliced on a single processor — is not a 
68' Micro Journal August 



unique requirement of embedded systems. 
For many years large main-frame systems 
have provided multiprogramming or 
multiprocessing features to enhance 
processor utilization and to provide a 
multi-user environment. More recently, 
operating systems for microprocessor based 
machines have provided this capability even 
in computers of modest size. In the 
embedded system environment, concurrent 
processing is required not so much for 
processor efficiency as it Is to satisfy 
the requirement that the system respond to 
stimuli from its environment In what is 
termed "real-time". That is, the response 
generated by the system to a set of input 
stimuli must be generated in a time frame 
appropriate for the response. Since there 
may be several — or even many — sets of 
stimuli requiring attention by the 
computer, and since they generally occur at 
random times, it is often necessary to 
resort to concurrent processing in order to 
ensure timely real-time processing of the 
input data. In systems using languages 
other than Ada, the synchronization of and 
communication among concurrently executing 
sections of code is accomplished in one of 
two ways. For those programs written in 
assembler, an executive routine of some 
sort -- probably interrupt driven — is 
written to provide the synchronization 
function. For those programs written In a 
high order language, a run-time support 
package -- termed a real-time operating 
system -- is linked with the program and 
the result loaded into the computer memory. 
These real-time operating systems normally 
provide an interface with the underlying 
hardware at a primitive level. Primitive 
system functions usually include provision 
for input-output, synchronization of and 
communication among concurrently executing 
code segments, and management of memory 
resources. While the use of a real-time 
operating system relieves the programmer of 
the necessity for dealing with the 
underlying hardware at a primitive level, 
It still requires him to step out of the 
high order languages and into the operating 
system by use of operating system calls. 
Since these system calls are specific to a 
particular real-time operating system, and 
since the operating system themselves are 
often machine specific, the portability of 
the resulting program suffers. 

Concurrent processing la the Ada 
language is provided by the task structure. 
A task is a set of instructions, together 
with associated type and object 
declarations, which is executed 
concurrently with other tasks — either 
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through multiprocessing or through time- 
slicing on a single processor. Tasks, like 
subprograms and packages, have a 
specification and a body, but task 
specifications and bodies cannot be 
separately compiled. The advantage that 
Ada's tasks provide is the fact that task 
synchronization and intertask communication 
can be effected directly in the high order 
language, thus precluding the necessity for 
explicit interaction with the underlying 
operating system. Such interaction is 
still present in an Ada program, of course, 
but it is implicitly provided as a 
response to the execution of statements in 
the high order language. The process by 
which synchronization of and communication 
among concurrently executing tasks are 
accomplished in the Ada language is called 
a rendezvous. In Ada, a rendezvous is 
produced when certain statements are 
executed in the communicating tasks. 

A very powerful feature of the Ada 
language, and one that is almost necessary 
as a result of the strong typing 
characteristics of the language, is its 
capability of providing generic program 
units. This feature permits the programmer 
to parameterize either a package or a 
subprogram in a manner that can best be 
explained by use of a simple example. 
Suppose a requirement exists in a program 
for a subprogram that will sort the 
elements of an array. The array elements 
may be either integers or characters. In 
many languages, a single sort subprogram 
could be used for this purpose, since the 
algorithm is the same in either case. In 
the Ada language, however, the strong 
typing characteristics prohibit the 
assignment of character values to objects 
of type INTEGER, or the assignment of 
integer values to objects of type 
CHARACTER. Thus, two sort programs will be 
required -- one for an integer array and 
one for a character array. A preferred 
alternative would be to provide a generic 
sort subprogram, complete in every detail 
except for the type of the element of the 
array to be sorted. A copy of the generic 
subprogram can be obtained, with the 
missing type provided, by a single Ada 
statement providing what is termed an 
instantiation of the generic subprogram. 
The generic subprogram may be instantiated 
any number of times, creating any number of 
copies. Furthermore, different types may 
be provided for each instantiation. There 
are restrictions on the types which can be 
specified at instantiation, but the utility 
of this feature is immediately evident. 



Ada's generic units comprise generic 
subprograms and generic packages. They are 
usually considered to be a template from 
which corresponding subprograms or packages 
can be obtained through the process of 
Instantiation. The generic unit may be 
parameterized, as in the example above, and 
the parameters may be types, objects, or 
subprograms. The program unit resulting 
from instantiation of a generic unit is 
called an instance of the generic unit — 
an instance of a generic subprogram is a 
subprogram, an instance of a generic 
package is a package. Generic units are 
not executable, but instances of generic 

units are executable. 

Ada's generic facility aids greatly in 

helping the programmer accommodate the 
strong typing feature of the language, but 
Its usefulness extends much further. The 
application of generic units to the 
implementation of reusable software seems 
quite evident. 

NEXT: Ada's Data Types. 

Ada is a trademark of the US Department 

of Defense. 
Editor's Note: Seems that ADA has drawn an 
awful lot of external interest, as well as 
a great deal of interest from our regular 
readers. 

I get calls from some of you wanting to 
know what S50 bus machines will run ADA. 
Well, how about some 'RUMORS'. 

Several I am sure. However, if you go 
to NCC this summer (July, Chicago) I am 
betting that GIMIX will have their 68020 
running. I predict that it will be running 
OS-9 - 68K - 68000. Now that should be 
some sort of Super SSO aachine! Also I 
predict that it will be one heck of a fine 
ADA machine. 

It was only back in October of last 
year that they were denying this but now I 
am willing to bet my shirt, that is, as 
concerning a 68020 - GIMIX - OS-9. It will 
probably be a level one (after all, level 
one on the 68020, ain't quite the same as 
level one on a 6809) and things should get 
better from there. With their intelligent 
I/O scheme and the 68020 and ????? - who 
knows what lurks in the skunk-works of 
GIMIX? Anyway, I like to rumor. Also I 
like to be right. We will find out this 
July at NCC. If you don't make it, tune 
in, for all the latest. 

AMD, when you do see it - DON'T TELL 
ME ANT LONGER THAT THE S50 BOS IS DEAD! I 
IT IS O.K. - JUST SOME FOLKS SAT OH THEIR 
RUMPS TOO LONG. HOWEVER, I WILL ROT TRY 
TO BB A, "I told you so." But, I did! 
DMW 
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FINDING FILES 

It's been one of my beliefs that if a 
"little knowledge is dangerous," no 
knowledge can be catastrophic. My early 
experiences with computers taught me to 
learn all that I could. My first job 
working with a computer was to watch it 
take data. Occasionally I would answer a 
question at the terminal to keep it going. 
Invariably the system would crash between 
the hours of 1 AM and 4 AM. At this time 
of night (or morning, depending on your 
reference) no one wants to be bothered. 
Calling our resident "computer expert" at 
some ungodly hour of the morning seldom 
solved the problem. (Most people don't 
think to well when they Just get up.) The 
only solution was to learn the system. And 
I did! Since then my motto has been LEARN! 

Last month I embarked on a study of 
the OS-9 disk. My intention was not to 
turn anyone into a "system's expert". 
Rather, I hoped you would get a feel for 
it. OS-9 is integrally tied to its disk. 
In many systems you can avoid excessive 
disk interaction. Not in OS-9! Almost 
anything you do will cause an interaction 
with the disk. Use a command, the disk 
drives turn on. Run a program, they grind 
away. List a file, away they go. You are 
very dependent on the OS-9 disk. 

Just to recap what was talked about 
last month, we took a look a the first two 
logical sectors of an OS-9 disk. LSN was 
the disk's identity sector. Here general 
information is stored about it. It 
contains the disk's name, creation date, 
the disk type, and lots of other goodies. 
LSN 1 is the disk's sector allocation map. 
Whether a sector on the disk is in use or 



not is contained here. Many of the OS-9 
commands use these sectors to give you 
information about the disk. A few of them 
are FREE, ATTR, and DCHECK. 

Another thing from last month was the 
use of the command DUMP. Entering 
something like: 

DUHP /dG 
will start dumping the entire disk, sector- 
by-sector. This is fine for the first few 
sectors, but what if you want to look at 
LSN 200? DUMP starts to become a little 
impractical. At the end of this months 
column is a listing of a Basic09 program 
called DiskLook. DLsklaok is made up of a 
number of procedures. The main procedure 
is named DiskLook. It's subprograms are 
Sprint, Cprint, Get_Sector, Zero, and 
Help List. The main procedure is menu 
driven, so all you need do is run it. If 
you need help just type <H> and it will run 
Help List. DiskLook reads sectors from you 
your - disk using the procedure Get Sector. 
Sprint prints the information to a standard 
size screen or the printer. Cprint is for 
the Color Computer's smaller screen. If 
you should try to read a non-existent 
sector, Zero will set all the sector 
information to zero and an error will be 
noted. After you run the program, you will 
see that it is easy to use. 

Many of you that have followed my 
column when it was "BASIC Basic09" in the 
COLOR MICRO JOURNAL will remember that I 
advocated no line numbers. If you look at 
the main procedure, DiskLook, and at 
Get Sector, you're probably saying, "Ah, ha! 
We caught you! You're using line numbers!" 
I have to confess, I did use line numbers. 
There are times when line numbers are 
justified. In the Get sector procedure, an 
ON ERROR GOTO is used which requires line 
numbers to transfer control to the error 
trapping routine. In the main procedure I 
used the 0N...G0SUB structure which 
requires line numbers. I originally used 
nested IF ... THEN. . .ELSE structures, but 
they became complex and confusing. After 
all, the idea is write programs that are 
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readable. The ON...GOSUB structure makes 
the program much neater and easier to 
follow. Also at line 1000 Is a subroutine 
that reads a sector and prints It. I 
chose to leave this In the main procedure, 
since It allowed the variables to treated 
as globals. I didn't have to pass 
everything back and forth. If It makes you 
feel better, think of the line numbers as 
labels. 

The output for DlskLook would look 

like: 

DlskLook VI. 
LSN: 2 $0002 

85/04/09 09:49:59 

012345670246 
ADDR 89ABCDEF8ACE 

00 BF00005504031230 ...U...0 

08 0200000120540C02 T. . 

10 0000030007000000 

18 0000000000000000 

This only shows the first 32 bytes of LSN 
2. When you use DlskLook, It will actually 
print addresses $00 thru $FF, but the rest 
of the listing are all zeros, so I didn't 
print past byte $1F. LSN 2 Is the file 
descriptor for the root directory on this 
disk. If you check LSN 0, bytes $08 thru 
$0A will tell you where this sector Is 
located. Just looking at this would not 
tell you much. But If we map out the 
Information here, we can get a better Idea 
of what Is happening. 

ADDR SIZE PURPOSE HY DISK 

~0U T~ Attributes BF 

01 2 Owner 00 

03 5 Date last 5504031230 
modified 

08 1 Link count 02 

09 4 File size 00000120 
0D 3 Date created 540C02 

10 F0 Segment list 0000030007 

Now the Information about the file 
descriptor for the root directory on this 
disk Is much clearer. Looking at the map, 
we see that Its attributes are $BF. In 
binary notation this translates to 1 1 1 
11111 which are the attributes d pe pw 
pr e v r. The most significant bit Is set, 
so this Is a file descriptor for a 
directory. This Is where the 0S-9 command, 
ATTR, gets Its Information. Next Is the 
owner's Id, which Is $0000. That's the 
"super user", me! 

After this Is the date the directory 
was last modified. Perhaps a file was 
added or removed. Maybe It was just 
updated. The 5 bytes here are 
$5504031230. These are the hex 
representation of Y H D H H. In decimal 



they are 85 4 3 14 46 which means the 
directory was last changed on April 3, 1985 
at 2:48 PM {24 Hour Clock). Link count for 
the directory Is 2. Now link count was 
originally intended to Indicate how many 
directories a file was linked to. As it 
ended up a file can only be in one 
directory, so this byte is Just there. In 
my root directories link count is always 2 
and it doesn't mean anything. All the 
other directories and files on the disk are 

1. The date the file was created is 
$540C02. If you guessed this is Deceaber 

2, 1984, your right! 

Finally the segment list contains the 
locations of the file on the disk. There 
are 46 5 byte numbers here. Each 5 byte 
number consist of a 3 byte LSN and a 2 
byte size. For the root directory the 5 
byte numbers is 0000030007. Which means 
Che directory starts at LSN 3 and is 7 
sectors long. After this are all zeros, so 
there are no more segments in this file. 
If we want to look at the directory we 
would start at LSN 3. Here's its 
beginning: 

DlskLook VI. 

LSN: 3 $0003 

85/04/09 09:52:55 

012345670246 

ADDR 69ABCDEF8ACE 

00 2EAE000000000000 

08 0000000000000000 

10 0000000000000000 

18 0000000000000002 

20 AE00000000000000 

28 0000000000000000 

30 0000000000000000 

38 0000000000000002 

40 4F5339426F6FF400 0S9Boo.. 

48 0000000000000000 

50 0000000000000000 

58 000000000000000A 

60 66696CE500000000 fll 

68 0000000000000000 

7 0000000000000000 

78 000000000000003C < 

This is the actual directory. Each entry 
is broken into 32 byte segments. The first 

2 9 bytes hold the file's name and the last 

3 bytes, its file descriptors location. So 
the the first entry Is from $00 to $1F, the 
next from $20 to $2F and so forth. 
Another thing, a file's name has the most 
significant bit of the last character set. 
This is the standard way that 0S-9 
Indicates the last character of a string. 
For example, the last character of 
"0S9Boo." Is $F4 which Is really the letter 
"t" or $74 in Ascil with the 8th bit set. 
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Another interesting thing about files 
is the first entry is $2EAE and the second 
is $AE. Taking into account the setting of 
the MSB in the last characters, these files 
are .. and . Sound familiar? If you ever 
did a D1R . or DIR .. this is where DIR 
got the information for the current 
directory or the one above that one. 

The "0S9Boot" file's descriptor Is 
located at LSN $0A. WE can move to this 
sector. 

LSN: 10 $000A 

85/04/09 09:53:30 

1234 5670246 

ADDR 89ABCDEF8ACE 

0000 030000540C021008 ...T 

0008 0100003032540C02 ...02T.. 

0010 00000B0031000000 ....I... 

00 1 8 0000000000000000 

I won't go into a complete analysis of this 
descriptor, but rather point out the 
highlights. The file was created on 
$540C02 which is December 2, 1984. That's 
the same day the directory was created. 
This file consists of $3032 bytes. It 
starts at LSN $0B and uses $31 sectors. 
We can take a look at LSN $0B, where the 
file begins. 

DlskLook VI. 

LSN: 11 $000B 

85/04/09 09:55:14 

012345670246 

ADDR 89ABCDEF8ACE 

0000 87CD030BOOOEE181 

0008 D3001500ADFF4343 CC 

0010 446973EB0216000F Dis 

0018 160051 1600CC1600 ..Q 

0020 491602771600434F I..W..CO 

0028 B7006F8EFF403008 ..o..@0. 

0030 86DOA78417025DA6 ]. 

If you look at $0E thru $12, you'll see 
the name "CCDIS.". (Remember the 8th bit 
being set?) The $EB at $13 Is really $6B. 
That's the ascli letter "k". So this Is 
CCDISK. It is the first module of my "Boot" 
file. If we were to look at the remainder 
of this file we would see items like BOOT, 
IOMAN, /DO, SCFMAN, and so on. These 
modules make up 0S9B00T. 

Files can come in many types and sizes. 
The 0S9B00T Is a special one. Some are 
executable modules like DIR, ATTR, and 
COPY. Others are ascil text files. That's 
how I store records of this column, papers 
for school and correspondence. Even the 
directory is a file of file names. They all 
have a file descriptor and are allocated 
space on the disk. 

Stop and study your disks with 
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DlskLook. You can trace directory paths 
and locate physical storage on the disk. I 
think you'll be amazed at how well they are 
laid out and how well everything works. 
You'll start to appreciate what happens 
every time you use a Disk 1/0. Every time 
you access the disk many things are 
happening. Directories are searched, file 
descriptors found and disk sectors 
accessed. And all this happens in 
seconds. Play around with Disklook and do 
some of your own investigating. 

Take care until next next time! 

LISTIHC P01 DLkUxik 

PROCEDURE DlskLook 

(* This program will examine and print 

(* Che concents of a sector on an OS-9 disk, 

(* 

DIM sector(2S6):BYTE 

DIM dr, vector, path, lsn : INTEGER 

DIM ane,cholce:STRING| I J; pa th_name : STRING I 64 ] 

DIM f flag: BOOLEAN 

(* 

(» We set up the print parameters 

PRINT CHR$<L2) 

PRINT 

PRINT "Disk Look Version 1,00" 

PRINT "by Ron Volgts" 

PRINT "for The '68' Micro Journal" 

PRINT 

PRINT "<L>ong or <S>hort listing? "; 

GET #1 ,ans 

IF ans«"L" OR ans»"l" THEN 

f flag: -TRUE 

ELSE 

ff Lag: -FALSE 

ENDIF 

PRINT 

PRINT 

PRINT 



Which disk drive? "; 
GET /l.ans 
dr :-VAL(ans} 

path_nane:-"/d"*STRS(dr) + "(3" 
PRIST 
PRINT 
(* 

(* This loop handles 1/0 with Che operator 
LOOP 
PRINT 

PRINT "»"; 
GET i\ ,ans 
PRINT 
RESTORE 
REPEAT 

READ choice , vector 

DATA "F" . I ,"f " . I ."B" ,2,"b", 2 ,"S" . 3.* , k" . 3 
DATA "T" ,i,"v" ,i."fl." ,i."r" ,5,"W ,6,"h" ,b 
DATA "Q",7,"q",7 
DATA "?",-l 

EXIT1F ans-choice THEN 

ON vector GOSUB 100,110,120,130,140,150,160 
ENDEX1T 

UNTIL vector — 1 
IF vector — 1 THEN 
PRINT 

PRINT "Type <H> for help." 
PRINT 
ENDIF 
ENDLOOP 
(* 

(* aove a sector forward 
100 lso:-l8n+l 
GOSUB 1000 
RETURN 
(» 
(* aove a lector back 
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110 IF len>0 THEN 

lsn:-lsn-l 

COSU1 1000 

ENDIF 

RETURN 

(* 

(* select • new sector 

120 INPUT "LSN»",lsn 

COSUB 1000 

RETURN 

(* 

(* print sector to printer 

130 OPEN »path,"/P'\ WRITE 

PRINT fpath 

PRINT 'path 

RUN Sprlntdan, path, aector) 

CLOSE 'path 

RETURN 

<* 

(* redisplay sector 

140 IF fflsg-TRUE THEN 

RUN Sprlntdan, I .aector) 

ELSE 

RUN Cprlntdsn, sector) 

ENDIF 

RETURN 

C 

(• print help list 

150 RUN help_llst 

RETURN 

(» 

{* return to the syacea 

160 PRINT 

END " —Disk Look Terminated—" 

(* do the resd snd print sector 

1000 RUN get aector(pach_na«e ,l8n, sector) 

IF fflsg-TRUE THEN 

RUN Sprlntdsn, 1 .sector) 

ELSE 

RUN Cprlntdsn .sector) 

ENDIF 

RETURN 

PROCEDURE zero 

(* This nodule zeroes s sector *) 

(* 

PA8AN aector(256):8YTE 

DIM 1: INTEGER 

FOX 1-1 TO 256 

aector(l):-0 

NEXT 1 

END 

PROCEDURE Sprint 

(* This Is the stsndsrd print routine 

(* It's output Is 64 chsrscters wide snd 

(* it csn output to any path 

{* pointed to by 'p'. 

(* Dlak Look uaea the stsndsrd output 

<* or s psth to the printer 

C 

PARAH l.p.-INTECER; s(256):BYTE 

DIM 1,J:INTECER 

PRINT 'p."Diik Look VI. "; 

PRINT »p USINC *'a5.16.zl,a,h4"."LSN: ",1,"S",1; 

PRINT 'p," "; DATES 

PRINT 0p 

PRINT ip,"ADDR 1 2 3 

PRINT 'p." CD E F 2 

PRINT 'p," "; 

PRINT #p, " 

FOR 1-1 TO 16 

PRINT 'p USINC "zl.h2.xl. si", 1*16-16." "; 

FOR j-1 TO 16 

IF H0D(J,2)-1 THEN 

PRINT #p," "; 

ENDIF 

PRINT 'p USING "H2",ad*16-I6+J); 

NEXT J 

PUNT #p," "; 

FOR j-1 TO 16 

IF s(l*16-16*J)<-$?F AMD s(l*16-16*J )>-$20 THEN 

PRINT «p.CHR$(adM6-16+J)); 
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ELSE 

PRINT 'p, ","; 

ENDIF 

NEXT J 

PRINT «p 

NEXT 1 

END 

PROCEDURE get sector 

(* here we get s sector froa the disk 

(* thst Is naaed In 'mat' at Ian 

(* 

PARAH naae:STRINC(64| 

FARAH lan:lNTEGER; eector( 256) : BYTE 

DIH path: BYTE; ermua: INTECER; location : REAL 

C* 

(* act up for possible dlak errors *) 

ON ERROR COTO 1000 

(• 

(* Resd s sector *) 

loca t Ion: -256. *FLOAT(lan) 

OPEN 'path,naae:READ 

SEEK /path, location 

CET fpath, sector 

100 CLOSE 'psth 

END 

(* 

(* This sres hsndles resdlng to fsr 

1000 errnua:-ERR 

PRINT "ERR f"; errnua 

IF errnua-211 THEN 

PRINT " --Beyond End Of Disk—" 

ENDIF 

RUN zero(sector) 

PRINT 

COTO 100 

PROCEDURE help list 

{* This aodule prints a Hat of coaaanda 

(* 

PRINT CHR$<12) 

PRINT 

PRINT " Help Llat" 

PRINT " ••*»•••****»»**" 

PRINT "F - aove a aector forward" 

PRINT "B - aove a aector backward" 

PRINT "$ - enter another aector" 

PRINT "P - display aector to printer" 

PRINT "R - redlaplay the eector" 

PRINT "H - get help Hat" 

PRINT "Q - quit Disk Look" 

PRINT 

END 

PROCEDURE Cprlnt 

(* This procedure prints s shortened 
(* version of the screen duap for 
(* for the Color Coaputer's acreen. 

(* 

PARAH 1: INTECER; a( 256): BYTE 

DIH 1. J: INTECER 

PRINT "Disk Look VI. O" 

PRINT USINC "s5,16,z2.s,h4","LSN: ",1,"$",1 

PRINT DATES 

PRINT 

PRINT " 012345670246" 

PRINT "ADDR 89ABCDEF8ACE" 

PRINT " " 

FOR 1-1 TO 32 

PRINT USINC "zl.h2,zl.s", 1*8-8." "; 

FOR J-1 TO 8 

PRINT USINC ,, h2".s(l*8-8+J); 

NEXT J 

PRINT " "; 

FOR J-1 TO 8 

IF s(i*8-8*J)<«S7F AMD a( l*8-8*J)>-$20 THEN 

PRINT CHRS(a(l«8-8+J)); 

ELSE 

PRINT "."; 

ENDIF 

NEXT J 

PRINT 

NEXT 1 

END 
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CoCo User Notes 



MODEM COMMUNICATIONS, Part Two 

or 

...And a BBS in the Bedroom 

Ahh, the joys of bit-banging! It's 
sooo easy to do it with CoCo: the 4-pin 
port narked "RS-232" on the rear apron of 
the cabinet (okay, the box!) will drive a 
printer, a modem, or even (as I do at my 
daytime Job) anywhere from 100 to 200 feet 
of cable between CoCo and a "port" (a place 
where data bits are stuffed into or out of 
a computer) on a much larger machine. 
(Not necessarily "better", mind you. The 
particular dinosaur of which I write is at 
least two software generations behind CoCo 
in terms of versatility, variety, and what I 
call the "Victory Factor": the chance that 
the owner will succeed in fixing whatever 
might go wrong (or recover from it without 
damage) without needing a master's degree 
in computer science and the like to do it.) 

Ah, but I digress. CoCo's no dinosaur, 
and that's who we're exploring today. 
(Gee, the world is such a different place 
when seen from atop a soapbox!) (Thirty 
years ago, you could still Jump up and down 
on one. Now they turn to a mass of soggy 
pasteboard when it rains...) 

The business is modems and BBs's. If 
you have a certain adventurous panache in 
your outlook, you might like the idea of 
setting up shop yourself as a CoCo sysop. 
(Does THIS kind of life look interesting to 
YOU? Night after night, dinner with the 
printer! Crackers, crumbs, logic bombs, 
weekends performing mailing list and 
software maintenance, plus ten thousand 
laminated, embossed business cards neatly 
imprinted in gold with your logo, full name, 
and the wrong address...) And yet, for all 
that, the people I know who run their own 
computer Bulletin Board Services (longhand 
for "BBS'*s - the people are "System 
Operators", or "sysops" for short) practice 
some of the finest qualities of which the 
human race Is capable. It's a tough gig, 
and (unless you've the heart of a genuine 
businessman) can be pretty costly. If 
you're not warned off by now, though, you 
ain't a-gonna be. Let's see what you need 
to do the Job. 

First: the software. (It's a principle. 
Software FIRST. Always. Think about it.) 
There are several commercial sources for 
CoCo BBS packages. Most of them cost 
about a hundred bucks or so. Check the 
pages of Hot CoCo, CoCoAds, or the Rainbow 
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by Carl Mann 

30 Warren Ave. 

Amesbury, MA 01913 

for what's available now. It's a growing 
family. 

If a hundred bucks is too much, (it is 
for me) there is another way. Pick up the 
'phone and call up Falsoft in Louisville, 
Kentucky. Order the "Ralnboard" software 
and the articles that appeared as 
documentation. This package is available 
for less than $35.00, including the cost of 
the Star-Kits "Remoterm" terminal driver 
package that composes the heart of the 
system. (Star-Kits advertises in 68' Micro 
Journal.) 

As for hardware: The Ralnboard 
requires at least one disk drive. (If you 
have two, that's better. If they're double- 
sided, so much the better. In any case, 
try for a moment to imagine either a RAM- 
or tape-based, diskless BBS. Write me 
when you get the bugs worked out.) You 
also need an auto-answer, direct connect 
modem of some kind. (Po' boys an' gals, you 
might start your search at Computer 
Products and Peripherals, Unlimited in 
Haverhill, Massachussetts If nobody in your 
neighborhood happens to have a good unit 
in the closet. Also try Metric Resources, 
Inc. at 1-800-368-2764. Both companies 
have mailing lists. Get on 'em.) 

Oh, yes - you'll need a 'phone line. 
(Unless you like the idea of friends and 
neighbors calling up for whatever reason, 
only to be greeted by the ear-splitting 
whistle of an automatic modem In perpetual 
search of a convenient mate, of course.) 
As long as you ask for no money over the 
new connection, Ma Bell will be merciful and 
only charge you the residential rate. Ask 
for even a ten-cent subscription fee, 
though, and she'll show you what makes the 
business world go 'round REAL quick. The 
moral: If you think you're going to run a 
business through a BBS, analyze the costs 
VERY carefully. Then set your prices 
accordingly. 

Got specific questions about modems, 
software, and the like? Drop me a note; 
I'll do you right. (Send a SASE for an up- 
to-date nationwide list of active BBS's of 
all kinds.) And keep your eyes open for 
something called "Packet Radio". It's new, 
It takes a ham license, and it eliminates 
the cost of 'phone time. (Get a-holt of a 
Heathkit catalog for starters. I'll write 
a bit about it later. It's new to me, 
too.) 

Until next time . . . 
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Using FLEX/Star-DOS 



by Troy Brumley 
8552 Huddleston Drive 
Cincinnati, OH 45236 



NOW TO "INSTALL" FLEX 

or 
MAKING "SYSTEM" DISKS 



Two month's ago we briefly discussed 
FLEX. This month we will install FLEX on a 
64K CoCo. For convenience I will discuss 
the F-MATE FLEX Version 3.0 sold by DATA- 
COHP since it is the version that I have. 
From talking with Bob Nay and reading Ron 
Anderson's FLEX USERS NOTES Columns I get 
the impression that STARDOS really is 
equivalent to FLEX, so the CoCo version 
should be nearly identical to the CoCo FLEX 
version I'll describe here. I imagine that 
other CoCo FLEX Systems should work in a 
similar manner. 



BY HIS BOOTSTRAPS 

"Install" is an intimidating word. 
Actually, Computer no modifications are 
required unless you don't have 6AK of RAM 
yet, which is required to be able to run 
FLEX on a CoCo. The process we will 
describe consists essentially of making one 
or more (probably MORE) copies of the 
delivery disk. 

The delivery disk is a FLEX BOOT DISK. 
This means it contains a short program 
that will load FLEX into your CoCo and give 
FLEX control of the system. This process 
is known as "BOOTlng the System". 



BUT FIRST... 



* WRITE PROTBCT YOUR DISK! * 



This applies to any software you buy, 
whether it is for FLEX, OS-9, EXTMD9 or 
CoCo DOS. Always cover the notch on the 
right side of your disk with a WRITE 
PROTECT TAB (that's a fancy name for an 
opaque piece of tape; so If you don't have 



some Write Protect Tabs laying around, use 
a piece of tape that will NOT let light 
through). 

You should never need to update a 
delivery disk. I personally think that all 
software should come on write protected 
disks. This avoids any chance of 
accidental update or erasure of a disk. 

Enough of my opinions... 



WHAT SHOULD YOU HAVE 

The package I got from DATACOMP con- 
tained 1 delivery disk, a small manual 
containing the TSC documentation on FLEX 
and their Assembler and Editor, and a 
special Conversion Manual from DATACOMP. 

Resist the urge to boot up FLEX and 
play. Read thru the Conversion Manual. In 
it you will find helpful hints and lucid 
instructions. Bob Nay worked hard on that 
manual, and I'd hate to see any of that 
effort go to waste. 

Take good care of the disk. DATACOMP 
requires that you return that disk to them 
for any upgrades or enhancements. This 
saves them the trouble of keeping track of 
serial numbers, owner changes, and such; 
whoever has the Master Disk gets an up- 
date. No disk, no updates. If you have 
FHL FLEX or XEX, I seem to recall hearing 
that your FLEX boot disk is copy protect- 
ed. If that is true, you will have only the 
disks that you bought to boot with. You 
should be EXTREMELY careful with It (or 
them). 



NOW TO BOOT 

Take your disk (you did write protect 
it, didn't you?) and insert it into your 
drive 0. If you have only 1 drive, that's 
drive 0. If you have 2 or more drives, 
drive is the drive that the system uses 
as a default when you load a program. 

Now type 'RUN "FLEX" and hit <BNTEi>. 

The disk will spin and messages will 
appear informing you that the FLEX BOOT 
PROGRAM is being loaded and executed. 
After a few seconds the disk will stop 
spinning and FLEX will ask you to enter the 
current date. I am writing this article on 
March 10th of 1985, so I entered "03 10 
85**. (P.S. You don't need to enter leading 
zeros here.) 

After you enter the date your disk will 
spin some more and FLEX will finish boot- 
Continued oo f»f 35 
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lfdeiciluh a a 

Now «■■ can rut 
TSC XBHSIC Programs Compiled to Asmb. Lang., 

under DS-3 m . CoCo DS-3.or FLEX™ milh 

4 K-BASIC 



m inn sit • ■« rvT ith 

(615)842-4600 



2-4600 m 

ij|f H «§i? 

5900 Cassandra Smith Rd. 

Hixson. TN 37343 

lor Information 

call (615) 842-4*01 

CoCo OS-9' - FLEX" 

SOFTWARE 



K — BflSIC under 05-9 and FLEX will now compile 
TSC BflSIC, XBHSIC, and XPC Source Code Files 

K.~ BH5IC noiu makes the multitude ofTSC HIRSIC Software 

available for use under OS-9. Transfer your favorite BflSIC 
Programs to OS-9, compile them, Assemble them, and 
QJQEJQJQ -- usable, multi-precision, familiar Software Is 
running under your fouorlte Operating Systeml 

K — BflSIC (os-9 or Firm. Includin g the limnkler 

$199.00 



Sculptor 



Microprocessor D*T*lopa»otm l.td.'s Commercial Application Generator Progran provides a PAST 
Coanerclat Application Development toot unavailable to the 0S-9 and UnlPLF.X User before. Develop any 
Commercial Application In 201 of the normal required time; gain eaay updating or customizing. PLUS, 
the Application can alao be run on MS-DOS and Unix machines! Scalptor handles Input validation, 
conplex calculations, and exception conditions as well as the noriul collecting, displaying, reporting, 
and updating Information In sn orderly fsahlon. Key flelda to 160 bytes; unllnlted record size; file 
size ahould be held to 17 Billion recorda. Utlllzea IXAH Pile Structure and B-tree Key fllea for rapid 
acceas. Input and Output communication with other program* and files plus a library of ISAM routines 
for use with C Prograaa. Run-time Included w/ the Development package; a coaplled Application only 
needs a Run-tlae License, Additional charge for Networked Units. Prices for Danclopmmmt Package/tuo- 
tlaa. Discounts available for purchaaea of 5 or sere Run- time Packages. 



UnlFLEX — $1*50.00/ 13 7. 00 

OS-9 Lvl II — SM5. 00/200. 00 



Unix -- up to S2SJ5/675 — Call for Infol 
IBM PC & compete — $635.00/170.00 



satlcM roar Cat** 

by Dale Puckett — An excellent Book on using OS-3. Oriented 
towards using the powerful BaifcO* Prsfrasatsf La*xnu>f*, It also 
contains a lot of good Information on atlas 0S-f In general. 

Normally 118.95 
Special tW only ltt.00 



^, 



FIEI Software 




VfSA 



m it u.s.a. 
(asm, si. io) 

Arid >I SwTfaca ferali*. 
101 All ror,l|« 



TSC Tien Utilities' 

TSC 'Sort herge" 

TSC "680» Basil- 

TSC "txtended Basic" 

TSC "OeBug" 

TSC VLEI Diagnostics* 

TSC "Text Processing System" 

TSC -MOM Cross Assembler' 



•as 



PS. 00. 
was ITS. 00. 
was ITS. 00. 
was 1100.00. 
was ITS. 00. 
was ITS. 00. 
was 17S.00. 
was $250.00. 



BOw only 1*4.00 

•Om only US. 00 

MH only JtS.OO 

■CM only K0.00 

■CM only iCS.OO 

MM only ttt.00 

MH only SCS. 00 

■N only 119I.M 



•HEX isi fademavk ol Tectvtcjl Sytlstns Com** ants 
~0Sg <i a trademark o» Macro**** 

111 Piatt 
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B5»*ndfa Sm<lh ftd 
Niason TN j73<3 
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Spoclfy Yoor (aper-ertlng System* 4 Disk Sin 
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*M liability 

r • flex, ccr > color 

O ■ OS-9. CCU • Color 
• UnlFlXX 
CCD ■ Color Cataputer 
OCT - Color Computet 

III 



Computer FU3 
Computer 06-9 

Disk 
Tape 
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••"J Till* SSI 414 fVT ITH 

(615)842-4600 IR 

4wgti si 17 

5900 Cassandra Smith Rd. 
Htxson. TN 37343 

(or Information 
call (S15) 642-4801 

CoCo OS-9" FLEX" 

SOFTWARE 




HSSEm'BLEHS) 



ASTRUX09 fro* Southeast Media — A "Structured Assenbler for the 
6BM" which requires the TSC Micro Assembler. F, CCF - S9».M 



Bier for TSC — 



The FLEX STAaTuW) Asse«*ler. 
Special — CCF (3S.00; 



F (50.00 



OSM Extended 6809 Macro Assembler from Lloyd I/O. — Provides local 
labels. Motorola S-records. and Intel Hen records; XREF. Gene- 
rate OS-9 Memory nodules under FLEX. FLEX. CCF. OS-9 S99.00 



— Use Kith many of 
F.CCF 1 150.00 



Relocating Assembler w/Unkinj Loader fro* TSC. 
the C and Pascal Compilers. 

UCI, by Graham Trolt Iroa trladrmeb tctcra "Tyateval — Co-Raaldenc 
Editor and Aaeewbler; fait Interactive A. L. Programing for small 
to aedlua-slzed Prograaa. F.CCF - 575.00 

2HACI — KACI w/ Croaa Aaaeabler for 6800/1/2/J/B F.CCF - S9B.O0 

TRUE CROSS ASSEMBLERS froa Computer Syiteas Corny! uati -- 
Supports IB02/5, 1-80, 6800/1/?/ 3/8/1 1/HC11. 680*. 6805/HCOS/ 
146805. 6809/00/01, 650? family, 8080/5, B020/I/2/35/C35/39/ 
4a/48/c*8/49/C49/S0/B/4B/49. 8031/51/8751. and 68000 Systems. 
Assembler and Listing formats same as target CPU's format. 
Produces machine independent Motorola S-Text. 

FLEX. CCF. OS-9. UniFlEX each - (50.00 

any 3 - (100.00 

the complete set «/ C Save* Incept the 68000 Source) - (200.00 



XASM Cross Asseatters for flE*. from Co-* w tense ltd. -- This set of 
6BO0/I/2/3/S/8. 6301. 6502. 80BO/5. and ZBO Cross Assemblers 
uses the familiar TSC Macro Assembler Command Line and Soruce 
Code format. Assembler options, etc., 1n providing code for the 
target CPU's. Complete set. FLEX only - 1ISO.O0 

CRAMS from Lloyd I/O — 8-Bit Macro Cross Assembler with same 
features as OSM; cross-assemble to 6800/1/2/3/4/5/B/9/U. 6502, 
1802, 8048 Sers. 80/85. Z-8. 7.-80. 1MS-7D00 sers. Supports the 
target chip's standard mnemonics and addressing nodes. 

FLEX. CCF. OS-9 Full package — {3*9.00 

CMS* 16.32 from llmyd I/O — Cross Assenbler for tic 60000. 

FLEX. CCF. OS-9 (249.00 



DISHSSEIT1BLEHS 



SUPER SLEUTH from Coupeter Systems Consultants — interactive 
Disassembler; extremely POWERFUL! Disk File Binary/ASCII 
Examine/Change. Absolute or FULL Disassembly. XREF Generator. 
Label "Haaie Changer*, and Files of "Standard Label Names* for 
different Operating Systems 



Color Compatar 

CCO (32K Req'd) Obj. Only (49.00 

CCF. Obj. Only SSO.OO 

CCF. w/ Source (99.00 

CCO, Obj. Only SSO.OO. 



SS-SO Boa (all ml A.L. 
F. (99.00 
U, (100.00 
0. (101.00 



See. rte) 



0THAM1TE ♦ from Coepntar Systems Center — Excellent standard 
"Batch Mode" Disassembler, Includes XREF Generator and 
"Standard Label" Files. Special OS-9 options w/ OS-9 Version. 

CCF, Ob J. Only (100.00 CCO, Obj. Only S S9.95 

F, * * (100.00 0. ■ * StSO.OO 

U. ' * (300.00 



PRDGHHmminG 



LfUlGUHGES] 



PL/9 from kfladrull POcro fyutea* — By Crahan Trott. A coablnatlan 
Idlto r/Compiler/Oebugger . Direct aourcc-ta-objecc conpllatloo 
delivering faac, compact, re-entrant. ROM-able, PIC. 8 & 16-blc 
Integera 4 6-dlglt Real numbera for all real-world problema. 
Direct control over ALL System reeourcea. locludlog locerrupti. 
Coapreheoalve library eupport; alnplc Machine Code Interface; 
■tcp-by-atep tracer (or loatant debugging. Sao* p«g a naouel 
with tutorial guide. F, CCP - SlW.M 

WHIMSICAL froe WMencal DevelooaoaU — Mow supports Real aaat-ers 
"Structured Programming' WIT OUT losing the Speed and Control or 
Assembly Language! Single-pass Compiler features unified, user- 
defined I/O; produces ROMable Code; Procedures and Modules 
(Including pre-complled Modules); many 'Types* up to 32 bit 
Integers, C-<1a1t Real Members, unlimited sized Arrays (vectors 
only); Interrupt handling; long variable Names; Variable 
Initialization; Include directive; Conditional compiling; direct 
Code Insertion; control of the Stack Pointer; etc. Run-T1me 
subroutines inserted as called during compilation. Normally 
produces 10J less code than PL/9. F and CCF - IMS. 00 

C Compiler from Wlndrash Micro Systems by James McCosh. Full C for 
FLEX except bit-fields. Including an Asseafcler. Requires the TSC 
Relocating Assembler if user desires to Implement his own 
libraries. F and CCF - (m.00 

C Compiler from letrol — Full C except Doubles and Bit Fields, 
streamlined for the 6809. Sellable Compiler; FAST, efficient 
Code. More UNIX Compatible than most. 

F, CCF, and - 1375.00 U - (425.00 

PASCAL Compiler froa Lucldata — ISO Based P-Code Compiler. 

Designed especially for Microcomputer Systems. Allows linkage to 
Assenbler Code for maximal flexibility. 

F and CCF s* - (190.00 F r - (JOS. 00 

rAJCAL Caapllar froa Onegaloft (now Certified Baft-oara) — For the 

FKOFUIIOlal; ISO Baaed, Dative Code Coapller. Primarily for 

Rcal-Tlac and Frocesa Control appllcatlona. Powerful; Flexible. 

Required a "Motorola Compatible" Belo. Aanto. and Unking Loader. 

F and CCP - S42S.O* One Year Malnt. - 5100.00 
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I-BASIC froa LLOTD I/O -- A 'Native Code" MSIC Compiler which 1s 
now Filly TSC IBASIC compatible. The coapller compiles to 
Asseably language Source Code. A NEW. stretallned. Assembler is 
now Included allowing the asseably of LARGE Compiled ".-BASIC 
Prograas. Conditional assembly reduces Run-time package. 

FLEX. CCF. OS-9 Coapller wit* Assembler - (199.00 

OWBOt COBOL from Caap a s ense Ltd. — Supports large subset of ANSII 
Level 1 COBOL with many of the useful Level 2 features. Full 
FLEX File Structures. Including Randoa Files and the ability to 
pi'ocess Keyed Files. Segment and link large programs at 
runtlne. or Implemented as a set of overlays. The System 
requires 56K and CAN be run with a single Disk System. 

FLEX. CCF; Normally (199.00 
Samdal latrmamctaem Price (while 1n effect) — I99.it 

FORTH from Stearns Electronics •• A CoCo FORTH Programming 
Language. Tailored to tea CoCol Supplied on Tape, transferable 
to dial. Written In FAST ML. Many CoCo functions (Graphics, 
Sound, etc.). Includes an Editor. Trace, etc. Provides CPU 
Carry Flag accessibility. Fast Task Multiplexing, Clean Interrupt 
Handling, etc. for the "Pro". Excellent "Learning" tool! 

Color Computer 0*T - (SO. 95 



k"^ ** Mix a. 



ifttf $ftili 



ndra Smiln Rd 
on. TN 37343 
Inlo (fllS) 842-4601 



coCn oe-v* iu)«" 

mum 



Specify Toaar 



»*a liability 

V » FLEX, CC"" « Cnl^r Conaxiter FLO 
O • OS-9. CCO . Colnr Computer os-9 
- UnlFLfX 

COJ • Color Computer Disk 
OCT - Color Computer Tape 
Ctpmm-ejtiitg Systems < Disk sin III 



32 



August '65 



'68' Micro Journal 




SOFTWARE |DEVELOPmEIlTfl ] 

laalcOl IRef froa Scat least Neefa — This laslcOt Iron khnx< 
Utility t( • 6»i1c09 Prograa which Mill produce • 'pretty 
printed* listing with each line niaOered, followed by a complete 
cross referenced listing of ell variables, external procedures, 
and line nuabers called. Also Includes a Program Lilt Utility 
which outputs a fast 'pretty printed* listing with line nuabers. 
Requires BeilcOg or Dune. 

t CCO obJ. only — J».*S; ■/ Source - S7».»S 
lacUate raKia. DnUTID aeewiree IDCrnAXA rascal nr ]) 
XII* -- prOduca ■ Crose Reference Uetlng of any text; oriented to 

Pee<:el Source. 
1BCL0DI — Include other Pllea In a Source Text. Including Binary; 

unllaiced neatlng cepeblUtlee. 
yiOFlLlI -- provtdee an Indented, Xuabered, "Si ructogna" of a 
faecal Source Taxi Pile; view the Overall etructure of large 
prognxi, pro|riD Integrity, etc. Supplied In Peace) Source 
Code; reQulraa coepllatlon. 
T. COT 1MB utility S" - S40.00, «" - SJO.OO 

OUK froa Saetfteeit Media -- * UaiFLEl 'basic* De-Co-»11er. Re- 
Create a Source Listing froa UnlFLEX CoapOed bade Prograas. 
Works w/ ALL Versions of 6809 UnlFLEX basic. U - S2II.M 

FULL SOKEK FOtHS OISrLAT froa Ceaevtcr Sri teen Coawl teats — TJC 
E> tended BASIC prograa supports any Serial Terainal with Cursor 
Control or Heaory-Hepped Video Displays; substantially extends 
the capabilities of the prograa Designer by providing a Uble- 
drtven ae thod of describing and using Full Screen Displays. 

F and CCP, U - $25.00, w/ Source - SJO.OO 
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OS-t VOIsk froa SeutMatt Media -- For leeel I only. Use the 
Cateadad Meaory capability of your SHTPC or Cialx CPU card (or 
slallar foratt 0«T) for FAST Prograa Coapltes, OfJ execution, 
high speed Inter-process coajaunlcations (without pipe buffers), 
etc. - SAVE that System Memory, virtual Olsk size Is variable In 
4K Increments up to 960K. Some Asseafily Required. 
— Letal I CA-LT — OS-9 obj. only - S79.95: w/ Source • S141.H 

0-F froa Saetkeett Media — Written In 6ASIC6* (wit* Source), 
Includes: ICFBUUT. t 6ASIC09 Prograa that reformats a chosen 
• aount of an OS-9 disk to FICI Foraat so (t can be used noraally 
by FLEX; and FLEX, a BASIC09 Prograa that does the actual read 
or writ* function to the special 0-f Treasfer Met: user-friendly 
■enu driven. Read the FLEI Directory, Delete FLEX Files, Copy 
both directions, etc. FLEX users use the special disk Just like 
any other FLEX disk. - S7».»S 

COPTHULT froa Seetleast Media -- Copy LARSE Disks to several 
matter disks. FLEX utilities allow the backup of AIT tin disk 
to any SMALLER size diskettes (Hard Olsk to floppies, 6* to S", 
etc.) by slaply Inserting diskettes as requested by CtXfTRJLT. 
mo Fooling with directory deletions, etc. C0PTM0LT.CHO 
understands norael 'copy* syntax and keeps up with files copied 
by Maintaining directories for both host and receiving disk 
systea. also Includes 8Atgur.CMD to download any size "random" 
type file; RESTORE. UN to restructure copied "randan* files for 
copying, or recopylng back to the host systea; and FTtEELim.CK) 
as a 'bonus* utility that 'relinks' the free chain of floppy or 
hard disk, ellafnatlng fragaantatlon. 

Completely I ul — a tad As tamely La*f»sfe Jeme-a nets Included. 

ALL « Prograas (FLEX. 8* or $*> S9t.M 

COPYCAT froa licldau — Pascal MT required. Allows reading TSC 
Nlnl-FLEX, SSI 00561. and Digital Research CP/N Disks while 
operating under FLEX 1.0, FLEX 2.0, or FLEX 9.0 with MOO or 
(809 Systeas. COPTCAT will not perform miracles, but, between 
the prograa and the aanual, you stand a good chance of 
accoaplfshlng a transfer. Also includes soae Utilities to help 
out. Prograas supplied In Mlllr Scare* Came (Asseably 
Language) to help solve unusual problems. 

F and «Ff- IM.Ot F 8* - 1*5.00 
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lor Information 
call IBIS) 642-4601 

CoCO OS-»"" FLKX" 

SOFTWARE 



IUX OIII UTILITIES froa Camnmfer »).i mmm Cawallaata — glght («) 
different Aaeeably Languege (w/ Source Coda) ILEX UtUlttee for 
every PLIX Uaera Toolbox: Cevy a file with CSC Inn; T»et Mek 
far errore; Ceauvare two Otaka; a fait Otak lactam Prograa; Idle 
Dial lactam: Uaaarlaa Prae-CVala oo the Dlek; print Mek 
Identification; and lore and aepleee the Wax Dtreetory (In 
• ortad order). « PUg — Ten J3A3IC Prograaa Including: A 
UIIC laeee,aaaiar with UTIuU over "IUIIT Ilka check for mlaalng 
label definition! , prOeeaaaa t&ak Co tdak lnataad of in Mraory, 
ate* Other prograaa C eaaere. Marge, or Caearece Updates 
between two IASIC Pregraae, check IASIC leeaaae* laabatra, 
eoaPare caa aaaaa— Hfai fllaa, and 5 Pragma* for eetebllehlag a 
■ eater Olractary of eeveral oleke, and eortlng, selecting. 
updating, and printing paginated llatlnga af tbaaa fllaa. A 
IASIC Creea-tafarence Prograa, written In AeeeeZtly Language, 
wklch provides an I-lef Uatlng of the Varleblee and teaerved 
Worda Lo TK BAIK, XBaDE, and rtaTtzaWTlJl IASIC Prograaa. 

ALL IKUltlaa tawJaata lean a (either lallC ar A.L. Source Coda). 

P end CO" - SM.Oe 

aine luiiuaa omt for taaLTin — sm.oo 
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CNOBEM Tel ecaeaealca float Prolraa froa Caayater systeae 
Coaialtaatt, lie. — Menu-Driven; supports Duab-Teralnil Node, 
Uploed and Download In non-protocol aode, and the CP/H *Noden7* 
Chrlstensen protocol aode to enable coaaunlcatlon capabilities 
for alaost any reQulreaent. Written In *C*. 

FLEX. CCf. OS-g, UnlFLEX; with caaplcte Source - 1100,00 

without Source - SJO.OO 

XDATA froa Seat baa st Media — A COJWUIICATIOI Package for the 

UalFLCI Operetlng Systea. Use with CP/N, Main Fraaes, other 
UnlFLEX Systaas, etc. Verifies Transalsslan using checksua or 
CRC; Re-Transalts bad blocks, etc. U - »m.*f 
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■AMU - 6609 Caesa Prograa free. SMUkNIt Naai* — Requires FLEX 
and Displays on Any Type Terainal. Features: Four levels or 
play. Swap tide. Point scoring system. Tan display boards. 
Change skill level. Solve Checkaat* problems In l-J-3-4 eaves. 
Hate aove and swap sides. Play white or black. This Is sac of 
the strangest CHESS prograas running on any alcroccxcputer, 
title. ted USCF Siting 1600* (better than east 'club' players at 
higher levels). F and CCF - S».fl 
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SPClia 'Coaputir Dictionary' froa Southeast Heole — OTEft 170.000 
wordtl loot up t word froa at thin your Editor or Nord Protestor 
(with the SPH.CMo Utility which operttes In the FLEX IKS). Or 
check and update the Text after entry; A00 WORDS to the 
Dictionary, "Flag" questionable words In the Test. "View a word 
In content' before changing or Ignoring, etc. SPELIB first 
checks a "CoaMn Word Dictionary', then the normal Dictionary, 
then a 'Personal Word List", and finally, any "Special word list' 
you aay have specified. SPELLS also allows the use of Small ofil 
Storage systems. 

F and CCF - S121.9S 

DHTR^BRSEl|JBC[:OUnTrnG]] | 

XOHS froa Vettctetler Applied Bailees! dilan — Powerful DBMS: 
N.L. prograa will work on a single aided r disk, yet Is F-A-S-T. 

Supports Relational, Sequential, Hierarchical, and Randoa Access 

File Structures; has virtual Meaory capabilities for Clam Data 

Bases. IDPS Lewi I provides an 'entry level" Syste* for defining 

a Data Base, entering and changing the Data, and producing 

Reports. IONS Level II adds the POWERFUL "ttNtRATC facility 

with an English Language Coaaand Structure for aanlpulatlng the 

Data to create new File Structures, Sort, Select, Calculate, 

etc. XDNS Level III adds special 'Utilities" which provide 

additional ease In setting up a Data Base, such as copying old 

data Into new Data Structures, changing System Parameters, etc. 

IONS Systea Manuel - W«.»S IMS Lvl I - F 4 CCF - Jl».« 

XDMS Lvl II - F 1 CCF - tm.ti 

XONS 1*1 III - F I CCF - S2H.*S 

ACCouniaS PACKAGES — Sreat Plaint Computer Co. and Universal Data 
Research, toe. both have Data Base and Business Packages written 
In TSC XBASIC for fin. CoCo FIEI. and IMFIEX. 



SCRE01T0R III froa Wfadrit* Micro Systeas •- Powerful Screen- 
Oriented Editor/Word Processor. Alaost SO different coaaands; 
over 300 pages of Oocuaenutlon with Tutorial. Features Multl- 
Coluan display and editing, 'declaal align' coluans (ANO add thea 
up automatically), aultlple keystroke aacros. even/odd page 
headers and footers, labedded printer control codes, all 
Justifications, "help" support, store coaaan coaaand series w 
disk, etc. use supplied "set-ups", or reaap the keyboard to 
your needs. Except for proportional printing. Mis package will 
00 IT ALII 

MOO or S80» FLEX or SSB DOS. OS-9 • 1175.00 

1TTL0-CIAFR froa Croat Plata* Compete* C*. — A ruil-ecreco 
orleocad WORD PROCESSOR — (uaec the SI x 2* Me pi ay Screen* on 
CoCo PLKX/STAR-DDS. or PIJ Wordpak). Pull acre** dlaplay and 
adtttnf; support* the Daley Wheel proportional printer*. 

— > CCP and CCO - $*».»S. P or - S170.es, V - S1W.M 



ITTLO-IPILL froa Croat Plata* Ceaeater Co. — Fait Coapucar 
Olctlonary, Coaplaaant* Scylograph. 

-> CCP and CCO - S*».M, P or - jti.*W. U - ?U).»S 



firm ■■ I froa Croat Plata* Cawa-atar Co. — Merge Nailing Uat to 

"•oie" Uttara, Print aultlple Pllaa, etc., through Stylo. 
ajjy rtlOJ > CCP and CCO - JS».«3, P or O - $?*.«, U - SIM. OS 



tmavrtf 



Ccaph ♦ 5P*lt ♦ Mori* Packafa Daallll 

P or - »M.«S, 
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JUST froa Southeast Media — Text Formatter developed by Ron 
Anderson; for Dot Matrix Printers, provides aany unique features. 
Output "Foroatted" Text to the Display. Use the F run. CPU 
supplied for producing aultlple copies of the "Formatted" Text on 
the Printer INCLUDING INSEOOEO PRINTER COMMANOS (very useful at 
other tlaes also, and worth the price of tile prograa by Itself). 
'User Coeflaarakle" for adapting to other Printers (coaes see up 
for Epson MX-BO with Graftrax): up to ten (10) labedded "Printer 
Control Coaaands*. Compensates for a "Double Width' printed 
line. Includes the normal line width, aergfn. Indent, paragraph, 
space, vertical skip lines, page length, page nuaberlng, 
cantering, fill, Justification, etc. Use with AIT Editor. 
Supplied with 'Structured Source" (Wlndrush Pl/9): easy to see 
the flow of the prograa. 

F and CCF - Ml.tS 
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TABULA RASA SPREADSHEET froa Computer Sy sices Coasaltaats — 

TABULA RASA is slallar to KStTOr/PL»N; provides use of tabular 
coaputatlon scheaes used for analysis of business, sales, and 
econoalc conditions. Menu-driven; extensive report-generation 
capabilities. Reoulres TSfs Cxtreeed BASIC. 

t and CCP. U - SSO.OO. w/ Sourc. - $100.0* 

OTNACALC froa Computer Systems Ceattr — Electronic Spread Sheet 
for the »80». 

F and SPECIAL CCF - SrOO.OO. U • SMS. 00 

FULL SCXXEJ IdlEVTORT/raV froa CdaBoter "trttems CoatalUau — Use 
the Full Screen lnventoi> Systea/Haterlals acquirement Planning 
for maintaining Inventories. Keeps ttea field file In 
alphabetical order for easier inquiry. Locate and/or print 
records matching partial or coaplete Hen. description, vendor, 
or attributes; find backorder or below stock levels. Print-outs 
In I tea or vendor order. MRP capability for the nalnlenante and 
analysts of Hierarchical asseablles of Items m the Inventory 
file. Requires TSC'l El tended (ASIC. 

P and CCF. tl - SSO.OO, w/ Sourca - SIOO. OB 



FULL SCREEN NAILINC LIST froa Computer Sett*** CoatalUaU — The 
Full Screen Mailing List Sysle* provides a means of maintaining 
staple mailing lists, locate all records aatchlng on partial or 
coaplete name, city, state, <ip, or attributes for Listings or 
Labels, etc. Requires Tit's Cxtaaeed BASIC. 

t and CCP, U - SSO.OO, w/ Source - $100.00 

OIET-TAAC Forecatur froa Southeast Madia - An XBASIC prograa 
that plant a diet In terat of either calories and percentage of 
carbohydrates, proteins and fats (C P CI) or graas of 
Carbohydrate. Protein and Fat food exchanges of each of the six 
basic food groups (vegetable, bread, aeat, skla allk, fruit and 
rat) for a specific individual. Sex, Am, Height, Present Weight, 
Fraae Size, Activity level and Basal Metabolic Rate for normal 
Individual are taken Into account. Ideal weight and sustaining 
calories for any weight of the above Individual are calculated. 
Provides number of days and dally calendar after weight goal and 
calorie plan 1s determined. 

F - JSi.tS. U - M».*S 
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ing. The most obvious sign that FLEX is up 
is that your screen will be in a 51 column 
by 24 line display format. If you have a 
poor quality TV you could have some trouble 
reading this screen at first. Try turning 
down the color on your TV. If this doesn't 
help you may want to buy a monitor or a 
better TV. 

If you just can't read the screen 
comfortably you can switch into 32 char- 
acter mode by typing 'V32' and hitting 
<ENTER>. This will return your display to 
the mode you normally use in BASIC. If you 
want to switch back to the hi-res screen 
format type 'V51' and hitting <ENTER>. 



FLEX IS WAITING ON YOU 

Up near the upper left hand corner of 
the screen you will see three plus signs 
and a black block that blinks on and off. 
The three plus signs are FLEX's PROMPT, 
much like BASIC'S OK. The black box is the 
cursor. FLEX is ready and willing to do 
your bidding. 



OK, IT'S TIME TO PLAY 

Let's enter a command. The FLEX 
command to list the names of all the files 
on a disk is CAT. Type in 'CAT' and hit 
<ENTER>. 

Your disk will start to spin and then a 
listing of the files on the disk print on 
the screen. When the screen is full FLEX 
will pause and wait for you to hit the 
<ESCAPE> key before the list continues. 

In DATACOMP's FLEX the <ESCAPE> key is 
defined as the <1> key (because that is 
where the "Escape" Key in on normal Ter- 
minals). Hit it and another full screen of 
files will list out. When FLEX pauses 
again just hit <ENTER>. There are a lot 
of files on the delivery disk and we don't 
need to see them all now. 



ROW TO INSTALL 

Before we play some more we really 
should create a couple of bootable System 
Disks so we can take our master disk and 
hide it in a safe place. The conversion 
manual that comes with the DATACOMP FLEX 
system has an excellent explanation of how 
to create a new boot disk, so I won't go 
into quite the same level of detail that it 
does. I'll say just enough so you can get 



the idea of how to do it. 



DOUBLE DRIVE SYSTEMS 

Take the FLEX disk out of drive and 
double check it to see that it is write 
protected. Once it is, put it back in 
drive 0. 

Put a blank disk in drive 1 and enter 
'NEWDISK 1' (some other Systems may use 
"FORMAT" Instead of "NEWDISK") at the +++ 
prompt. Drive will spin and then your 
CoCo will start asking questions about the 
disk you want to format. To keep things 
simple let's use the same disk format that 
the FLEX disk is in, single sided, double 
density, 35 tracks. 

Once you have entered all the necessary 
information drive 1 will start to spin and 
the disk will be formatted. The complete 
format and verify operation takes around a 
minute on my system; single density takes 
less time, while double sided takes longer. 

Once formatting is complete enter 
'MAKESYS 1' at the +++ prompt. Drive will 
spin and then drive 1 will start to spin. 
In less that a minute the -H-t- prompt will 
reappear. FLEX has taken a small piece of 
the disk away from itself and set it up so 
that it has the FLEX/BAS and a Machine 
Language file that must be run to boot 
FLEX from CoCo DOS, and therefore must be 
in RS Format. 

Now enter 'COPY 1* at the +++ prompt. 
Go get a cup of coffee or a coke. This 
takes around 5 minutes on my system. FLEX 
will copy every file from the disk in drive 
to drive 1. 

When the +++ prompt returns you will 
have a good copy of the delivery disk in 
drive 1. Take that delivery disk and hide 
it in a safe place; NOW! 



SINGLE DRIVE SYSTEMS 

If you have only 1 drive this will take 
a while. The installation procedure is 
similar to the one that I described for a 
double drive system, but you will have to 
swap disks frequently to complete the 
process. While this is a very tedious 
procedure I know it can be done. I did it 
when I bought FLEX. I acquired my dual 
drive system only two months ago and I've 
had FLEX for almost nine months (and is 
FLEX or STARDOS nice with two Drives). 

To format a blank disk we will still 
use the NEWDISK command, but Instead of 
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entering 'NEWDISK 1' enter '1EWDISK 0'. 
FLEX will ask If you have a scratch disk In 
drive before he formats the disk, so you 
have plenty of time to swap disks. 

After the disk Is formatted, Instead of 
entering 'MAKESYS l\ put your FLEX delivery 
disk back In your drive and enter 'MAKESYS 
0'. As with the single drive NEWDISK oper- 
ation, FLEX will give you an opportunity to 
remove the system disk and Insert the new 
disk. 

The COPY command Is specifically for 
multi-drive systems. In order to COPY 
files on a single drive system, the SOC 
(Single Drive Copy) command should be used, 
unfortunately, you have to enter each Indi- 
vidual file name to copy, and SDC will only 
copy 5 files at a time. To make your job 
easier you will want to get a copy of the 
disk CATALOG to use as a checklist. 

If you have a printer connected to the 
SERIAL I/O port on the back of your CoCo 
you can get a catalog listing with no 
trouble, as long as the printer Is running 
at 600 baud. If you have one of the many 
non-Tandy printers and a special serial to 
parallel converter box, set It to 600 baud. 
I'll show you how to change FLEX's baud 
rate next month. If you have a non-Tandy 
serial printer (I have an 0KIDATA Hlcrollne 



8 2A running at 1200 baud) make sure It Is 
set up to run at 600 baud also. If you 
have any of the normal Tandy printers, 
you're all set. 

Enter 'P CAT' at the ++♦ prompt. A 
complete list of all files on you disk will 
be printed for you. You can use this as a 
check list for you single drive copy. Copy 
5 files at a time, and be sure not to get 
your hands crossed as you swap disks. 
Once all the files have been copied, hide 
the original master In a safe place (now, 
doesn't "COPY 1" look a lot easier?). 



WBAT'S NEXT 

I've had a busy couple of months so I 
didn't get to cover everything I wanted to. 
Next month I'll have a short section on 
customizing the printer drivers for non- 
standard printers, and I'll start explaining 
some of the powerful features of FLEX, such 
as 1/0 re-direction and the EXEC 
processor. 

If you have any questions on FLEX and 
the CoCo feel free to drop me a line care 
of '68', but be sure to Include a stamped 
and self addressed envelope. 

Until next time... 



Implementing TYPEAHEAD in FLEX 



E. M. (Bud) Pass, Ph.D. 

Computer Systems Consultants 

1454 Latta Lane, N. w. 

Conyers, GA 30207 

404-483-1717/4570 



INTRODUCTION 

Several months ago, an article was 
published In '68' Micro Journal which 
provided a means of implementing 
type-ahead in FLEX. Unfortunately, it was 
not compatible with spooling nor with any 
programs such as full-screen editors which 



use a large number of control characters; 
it also did not handle the full buffer 
situation. 

This article provides an alternate means 
of implementing typeahead in FLEX which is 
compatible with spooling and full-screen 
editors and also occupies substantially 
less memory than the original routine. 
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DISCUSSION 

The theory behind the implementation of 
typeahead in FLEX is reasonably simple, 
given a device such as an ACIA or PIA 
which is capable of generating an 
interrupt when it receives an input 
character and has at least a one-byte 
buffer to hold the character until it can 
be processed. 

When a character is received, it is placed 
into the circular queue by the interrupt 
routine, assuming that the queue is not 
full. When a program (or FLEX itself) 
requires input, the character is taken 
from the queue, unless it is empty, in 
which case the requestor is caused to wait 
until the queue is not empty. When a 
character is taken from the buffer, it is 
optionally echoed, so the results on the 
terminal are the same as if typeahead had 
not been active. This is the same 
technique used by OS/9, but UNIX and 
UNIFLEX echo the characters as they are 
entered. 

Since every character input is potentially 
critical to a program such as a 
full-screen editor, the typeahead routine 
must not use or intercept any of the input 
characters. This is the reason the 
original routine was not compatible with 
full-screen editors, as it used several of 
the control codes for special purposes. 

Without the output pause option of the 
original typeahead routine and without the 
ability to pause a listing by striking a 
key (it is lost because of the ambiguity 
of whether a character is for input or 
pause purposes), there are still two 
manners in which to pause output. One is 
to set the FLEX TTYSET DP page depth 
parameter to cause output to pause at the 
end of each screen page. The other 
(non-exclusive) means is to attach a 
switch to the CTS line on the ACIA or 
other interface device to inhibit 
transmission temporarily. There are 
several peculiarities in FLEX's handling 
of the DP parameter, primarily related to 
pausing the printer as if it were the 
terminal, but they are avoidable. 

In order to receive control properly when 
an interrupt occurs, the typeahead routine 
must insert its entry into the interrupt 
queue. It must also return control to the 



original entry at the head of the 
interrupt queue. This is the reason that 
the original routine was not compatible 
with spooling, which is the only 
interrupt-driven routine supported by 
FLEX. 



TECHNIQUES 

The construction of a circular queue is a 
fairly simple programming task. It may be 
accomplished in one of several manners. 
The one used in this case involves the use 
of two pointers and one counter. It could 
have been accomplished with the use of two 
pointers without the counter. One pointer 
indicates the location into which the next 
arriving character will be placed. The 
other pointer indicates the location from 
which the next requested character will be 
taken. When either pointer reaches the 
end address of the buffer area, it is 
reset to the beginning of the area; 
otherwise, pointers values increase by one 
character for each insertion or deletion. 
The counter indicates the number of 
characters in the queue. When the queue 
is full, no additional characters are 
placed into it. When the queue is empty, 
the terminal status is "not ready", 
otherwise it is "ready". 

The typeahead routine replaces the FLEX 
input vectors at $CDOA, $CDOD, $D3E5, and 
$D3E7 with pointers to its input routines 
and the FLEX input vector at $D3F7 with a 
pointer to its terminal status routine. 
However, it copies the low-level FLEX 
vectors at $D3E5 thru $D3FC for its use 
before replacing them, so it can use the 
original low-level terminal input and 
status vectors to avoid the necessity of 
containing its own terminal drivers. The 
only device-specific code in the typeahead 
routine turns interrupts on in the ACIA. 

Since the code which sets up the ACIA for 
interrupts, establishes the circular 
queue, and modifies the FLEX vectors is 
needed only once, it is placed into the 
sane area as used by the circular queue to 
save space. 



PROBLEMS 

The primary problems with the use of this 
or any other typeahead routine under FLEX 
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use the FLEX vectors 
and status functions and 
interrupts off more 
Typically, the programs 
FLEX functions either d 
device directly or cal 
monitor routines. Thes 
modified to work correct 



rams which do not 
for terminal input 

those which turn 
than briefly. 

which avoid the 
rive the interface 
1 SBUG or other 
e programs must be 
ly with typeahead. 



There are several low-level FLEX vectors 
which are not defined in the usual FLEX 
manuals. The ones of most interest here 
are as follows: 

$D3E3 input from terminal 
$D3D7 determine terminal status 
$D3D9 output character to terminal 
$D3DB input from terminal and echo it 

Note that these are addresses, not 
instructions, and must be referenced 
indirectly, as in "JSR f$D3E5]". By 
modifying the programs to use these 
vectors, they will be made compatible with 
the use or non-use of the typeahead 
routine, and they will be more portable. 

If a program which suppresses interrupts 
more than momentarily cannot be easily 
modified to allow them, it must be 
modified to use its own terminal input and 
status routines in order to be compatible 
with the typeahead routine, or the program 
may be used only in the absence of the 
typeahead routine. 



TYPEAHEAD PROGRAM 

The program below, when executed, will 
link itself into the appropriate FLEX 
locations and vectors. It is assumed to 
be loaded into the end of a 2048 byte RAM 
located at $E800 to $EFFF. As it stands, 
it requires 378 bytes, including a 256 
byte circular buffer. 



' fLtl t«p*ah«*d program 



pore 


aqu 


StOCU 


Input port 


warms 


aqu 


MO 3 


(lea return 


lochv 


aqu 


$cdO* 


(lax Input vactor 


t«aat 


aqu 


100000011 


•iicir reaet (or acla 


prtlol 


aqu 


1M0IQ1Q1 


loltlallxatlan for acl 


vector 


aqu 


12 


flex vactor count 


flvnc 


aqu 


Mlei 


lov-level flax vac tori 


Input 


•qu 


SOD 


vactor table oteete 


lb«Ddl 


aqu 


SDZ 




etatue 


aqu 


111 




Output 


aqu 


fit 




lsche 


•qtl 


Sib 





start 

a 

lOCDt 

loptr 
ouptr 
vaciav 



trq 



bra 

feb 
Idb 
Cdb 
rsb 



irq 

$00 

lDltU 

loltlx 
vactor«) 



quaua count 
queue Input pointer 
queue output pointer 
flae l/o vactor eave area 



ootful 



clrcl 

com in 
lrq«av 



handle interrupt! 

paha cc.d ,dp,x,7 t u aava raglatara 

jar | veciav+itatua) get atatua 

beq coat la iklp If no loput 

jir | veceav*loput] get ttve character 

Idb lncnt buap character counter 

lncb 

boe notful warn If queue full 

Ida f$07 

jar [vecaav*output J beep uaar 

bra con tin do not atora character 

atb locnt 

ldx loptr point to buffer queue 

ata ,.■* itore character 

capx flnltla*256 and of queue ? 

bio clrcl 

ldx tlmtlz reiet buffer pointer 

atx inptr 

pule cc,d ,dp,x,y ,u 

jap lrqaav continue Interrupt chain 

gatchne gat* char froa input queua without echo 



test 



getchna pehe 
bar 
beq 
ldx 
Ida 
dec 

CBpX 

blo 
ldx 
ata 

pula 



gat che 



loadct 



Inlprt 



cc,b ,dp 
atata 

teat 
ouptr 



chart In the bufter ? 



gat pointer to buffer 
.x* get character 

lacnt buap count down 

#tnltli*214 aad of quaue ? 
clrco 

flnltlz raaat the pointer 

ouptr and aava It 

cc,b,dp,i,y ,u,pc return 



get£h* fitia character itm Quaue and echo*** it 

bar gatchna gat a character 

peha cc,d,dp,x»y»u 

Jar [vecaav*output] echo It 

pula cc ,d .dp.x.y ,u,pc raturn 

taat Input qu«u# length 



[It 


lacnt 




rci 






iQltll 


illt* vtcton, eat Interrupta, fix f 


paha 


cc 


aava condition codaa 


orcc 


»550 


turn off lnterupta 


ldx 


'flxvac 


aava flex l/o veecora 


Idy 


fvecaav 


aava area 


Ida 


Ivactor 


count 


Idu 


,»++ 




■ Cu 


■ »♦♦ 




deca 






bne 


loadct 




ldx 


f lxvec+lhaodl aava flax Irq vector 


•tl 


lrqeav*l 


In Juajp at and of Irq 


Id* 


• Irq 


change flex Irq pointer 


IU 


f Ixvac+lhandl 


ldx 


ffacchna 


change flex vector* 


■ta 


f Ixvec+input 


ldx 


•atate 




aCx 


f txvec*etatua 


ldx 


Igetche 




atx 


f lxvec*lnche 


• CX 


lnchv 




• CI 


lnchv*3 




bar 


lntprc 


Initialize control port 


pula 


cc 


raatora condition codea 


aOdcc 


*Saf 


enable Interrupta 


if 


tfarme 


return to ftex 



org 



SaeM 



Initialise control port: change If not acla 

Ida 'reaet aaeter react acla 

ata port 

Ida fprtlnl ralnltlatlce with interrupta 

ata port 

rti 

rtb 2S»-(*-lnltlc) raat of buffer 

eod lottiE 
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COBOL Name & Address System 

Tha dlakatt* ■ccoapany 109 this 1 attar COM>l na a naaa 

and addr««a ayataa i put togathar uaing Crunch COftOL . It not have Co type then all In. If you have already bought 

u«aa t»th tha call cmain and tha call owehlaV v.rb*. and Crunch COBOL froa S.E. MEDIA, let us knou your purchase 

daaonatrotaa a ■tchinl ■■ for ua| Ag d 1 rtct curaor oddraaai ng ._ _ » _■ *-n n c .. «. «*-• \*a ■ 

l„ t.r.m.l output. Ttr. t.r.ln.1 I .. u.ln, 1. .n old X.l.x d » Ce »" d f ° r *'•" T0U C " n »" the " « 0UrCe ,U " °" <* Uk 

9CT-10O iraai old - soo. b»ud>. Th. curaor routmaa con t» ' Soke sure you Cell them what, naie it was purchased 

...ily .odifiad to driv. any SSCll toramai - /or inatanc.. under. So, STAlT LEARNING AND MJOYUC A CLASSIC 

tha dalay toopa would naad l.o ba adjuatad or raaovad lor , IH > ll . f s > n^mm 

tar. mala (..tor than tha SCT- 10O. IJWCUACR - COBOL. 

Th. |. n.gr... that ..►. up tmi •,••.. ■»; 1 yonder if ire are becoming a languages' magazine? 
naxpoooo - initialize ilia. 

XAHPOOOl ■ Ronu. D"W 
MAAP0002 - Build acroan lor ADD function. 
NANP002* ' ADO racorda to ilia. 

KAHP0OO3 - guild acraan (or INQUIRE (unction. I nFNT t F iraTIflN niuicinv 

HAHPOOJA - IH9U1RE on a.latlng racorda. IDENTIFICATION DIVISION. 

NADPOOao - Ra-lnll.i.llza 1NOU1RE acraan. PROCRAM-ID. NAHP0O00. 

NAKPOOS. - Build acraan ill UPBATE (unction. ENVIRONMENT DIV1S0N. 

MANPOa.A - UPljATU ■Kitting racorda. ctii* rnuTuni cirnnu 

NAXPOO'B . R.-tnlttaliz. UPBATE acraan. flLl CONTROL SECTION. 

SELECT KAMK-F1LE ASStCs TO "WNAMDOOOIDAT" 

To run tha ayataa. flrat axacuta KAHPOOOO. TAla prouraa ACCbSS RANDOM. 

Mill ilk for tha alza of tha flla you wuh to inltiallza DATA DIV1S0N 
lauibir of racorda). KAHPOOOO can a 1 ao ba run froa tha aanu 

by aalacting option 'F' ILhli option doaa not oppaar on tho FILE SECTION, 

aanu). Aftar initializing tha Mia. control will ba trim- FD NAKE-FlLfc. 

farrad to tha aanu. Tha optlona on tha aanu ara pratty auch qj NA ME-RECORD PIC X< 1 26 ) . 

.. t f..,pi.n.tory. WORK INC-STORAU t SECTION. 

To back up « fiald whan adding or updating a racord, 01 US-TITLE PIC X(27) 

-nt.r th. ch.ract.r < <• in th. fi.ld th. curaor app.ar* in y ALUE "NAME/ ADDRESS FILE FORMAT " 

ind praaa rat urn , Tha curaor Mill than back up and al low _ , . ._ „_ -„-.,-- - . — «*« ■ * 

correction, to ba ..da. 0i -^-RESPONSE PIC X<01>. 

01 FILE-SIZE PIC 9U) VALUE ZEROES. 

To return to tha aanu fro- tha ADO function, •nttr tha COPY "WWFCCDTOOCBL" . 

word 'END' In tha firat naaa flald. Whan in tha UPDATE POPY "UN A.HC DM 1TP Rl *' 
function, antar 'EJTO' in tha laat naaa fiald. Tha ItfOVlHE 

function diaplaya a aaaaaga at tha bottoa of tha acraan PROCEDURE DIVISION, 

aftar displaying a racord. Enter '£' to raturn to tho aanu COPY "UUFCCPT01 CBL" . 

froa h-ra. A00O* INITIAL. 

Tha UPDATE function allowa flaloa to ba oltnkM by MOVE 4 TO X. 

antaring tha charactar *** in tha flald. Entering a '*' MOVE 5 TO Y. 

will aklp tha r.aalning fl.lda on tho acraan. Tha ayataa PERFORM Z110-ACA TURD ZIIOX. 
will aak for a con f 1 r Bat ion bofora updit lng tha raeord . 

Ent.r a -U- to upd.t. th. racord. a 0" to d.l.t. th. racord. DISPLAY 1-0 "ENTER PILE SIZE " UPON CONSOLE. 

or a 'C to contlnua •urchin] tha flla. ACCEPT PILE-SIZE FROM CONSOLE. 

IF FILE-SIZE > 1000 

Tha prograaa BAHP003B and ZAHPOO.B ara ovarlaya to 

KAXPOOlA and ZAHPOO.A r aapoct Iv.ly . Tha raaaon lor tha ovar- HOVE 10 TO X 

lira la that 1 had problaaa co. piling tha prograaa - appar- MOVE 5 TO Y 

antly tha prograaa war. to big. I bat.lv. th. ayataa would PERFORM ZUO-ACA THRU Z110X 

probably -»ork a 1 1 tt la bat tar If theaa war a changad toba _ ,,_ . .._. _. ■• 

Tin*.* prograaa. but 1 ju.t havan't gott.n around to ..hlng DISPLAY t-O "PILE SIZE LIHITED TO 1000 RECORDS" 

tha raqulrad changaa. If anyona la Intaraatod. 1 could aaka HOVE 1000 TO FILE-SIZE. 

thin changaa and provlda atandard curaor control aupport \y PILE-SIZE *« 1 

CVT. HT. S3. LF. FF> for aoot all t.ralnala. Drop aa a lino MOVF 10 TO X 
at tha abova addraaa and wa'll dlacuaa it. 

MOVE 5 TO Y 

I hop. thia ayata. or aoa. parta of it will pro., u.aful PERFORM Z110-ACA THRU Z1I0X 

to .... of your r.ad.r.tf anyona .1.. 1. Int.ra.t.d In d.v- DISPLAY 1-0 "FILE SIZE DEFAULTED TO 100 RECORDS" 
■ loping appl It-at lona in COBOL for SS30 ..chin... 1 would lovo 

to ha.r fro. th... UPON CONSOLE 

_,„ „ MOVE 100 TO FILE-SIZE. 

"" tlB OPEN OUTPUT NAME-FILE. 

OHINCH COWL - a aleeper IZZ.tztt N0VE SI> * CES T0 "S-NAHE-ADDRESS-REC0R0. 

PERFORH AlOO-NEU-FlLt THRU A100X FILE-SIZE TIMES. 

This COBOL thing has caught ae off guard. Flrat, 1 CLOSE NAME-FILE. 

don't progra. in COBOL worth a hoot. Second. 1 find out PERF0R " Z000-CLEAR-SCREEN THRU Z090X. 

a lot of you do. Thirdly, our CMIICH COBOL is a hotter' DISP ^ 1( " FILE «>«HATTED- UPON CONSOLE, 

number than I even imagined. I don't knor. If it Is the ..--^iji r^yc^linu"* 1 "' 

one hall (l/2> price we (S.E. MEDIA) are Belling CRUNCH h q V p"«8" T n .1 Sa.! EOR 

COBOL at or that a lot of you have Just been waiting for nu,t B lu s "*" EUK- 

a good COBOL aub-.et. Anyway, it is ooe of our hotter WRITE MAHE-RECORD FROM US-NAME-ADDRESS-RZCORD. 

a l nnx fktt 

aellera. And even better, 1 get a lot of nice compliments „ ,. 

about it. Cueas what, I'm going to take home a COBOL C0PY ""TCCPTOOCBL • 
package and try to learn aomethlng, don't wanna be left 

out! IDENTIFICATION DIVISION. 

PR0CRAH-1D. NAMP000I. 

So, here la a COBOL program written In CRUNCH COBOL. ENVIRONMENT D1V1S0N. 

We will run thia aa a short aerlea - this is part ONE. DATA D1VIS0N. 

1 have promises from others for more COBOL articles. WORKING-STORAGE SECTION. 

Let's see how you like this one. As a tutorial It alone 01 WS-T1TLE PIC X(27) 

Is worth It. As a working applications - it Is. So, hsve VALUE "NAME/ADDRESS MAINTENANCE ". 

at it - end If you havn't Jumped into COBOL, on your S50 01 WS-RESPONSE PIC X(01). 

6B09 system yet, well here is your chance. Also 1 have COPY "WWFCCDTOOCBL". 

Instructed Bob, Chris snd Ton, over st S.E. MEDIA, to PROCEDURE DIVISION, 

hold the one half special on for a while longer. And, If COPY "WWFCCPT01CBL". 

you Include an additional 59.95, 1 will send you a 5 or 8 MOVE S TO X. 

inch dlak with all these COBOL programs on It so you do MOVE 22 TO Y. 
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PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "A - Add r.cord" UPON OONSdl.E. 

MOVE 7 TO X. 

perform ziio-aca thru znox. 

DISPLAY 1-0 "1 - Inquiry" UPON CONSOLE. 
HOVE 9 TO X. 

PERFORM ZllO-ACA THRU ZllOX. 
DISPLAY 1-0 "U - Update" UPON CONSOLE. 
HOVE 11 TO X. 

PERFORM ZllO-ACA THRU ZllOX. 
DISPLAY 1-0 "E - Exit ■Fltca" UPON CONSOLE. 
HOVE 13 TO X. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "Enter (election- _" UPON CONSOLE. 
PERFORM Z040- BACK-SPACE-CURSOR THRU Z040X. 
A100-RESP0ND. 

ACCEPT WS-RESPONSE FROM CONSOLE. 
IF WS-RESPONSE - "E" 

PERFORM Z090-CLEAR-SCREEN THRU Z090X 

STOP RUN. 
IF WS-RESPONSE - "A" 

CALL "NAHF0002" CHAIN. 
IF WS-RESPONSE - "1" 

CALL "NAHP0003" CHAIN. 
IF WS-RESPONSE - "U" 

CALL "NAMP0004" CHAIN. 
IF WS-RESPONSE - "F" 

CALL "NAHFOOOO" CHAIN. 
HOVE 15 TO X. 
HOVE 1} TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 
DISPLAY 1-0 "INVALID SELECTION - ESTER A, E, I, OR U" 

UPON CONSOLE. 
HOVE 13 TO X. 
HOVE 39 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 
CO TO AIOO-RESPOND. 
COPY "WWFCCPTOOCBL". 



IDENTIFICATION DIVISION. 
PROGRAM-ID. NAHP0002. 
ENVIRONMENT D1VIS0N. 
DATA D1V1S0N. 
WORKINC-STORAGE SECTION. 
01 WS-TITLE PIC X(27) 

VALUE "NAME ADDRESS RECORD ADDS 

COPY "WUFCCDTOOCBL". 
PROCEDURE DIVISION. 

COPY "WWFCCPTOICBL". 

HOVE I TO Y. 

HOVE i TO X. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "FIRST NAME:" 
UPON CONSOLE. 

MOVE 34 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "LAST NAME:" 
UPON CONSOLE. 

HOVE 7 TO X. 

HOVE 1 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "ADDRESS 1:" 
UPON CONSOLE. 

HOVE 3* TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "ADORESS 2:" 
UPON CONSOLE. 

HOVE 9 TO X. 

HOVE I TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "CITY:" UPON CONSOLE. 

HOVE 24 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "STATE:" UPON CONSOLE. 

HOVE 34 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "ZIP:" UPON CONSOLE. 

HOVE 49 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "TEL:" UPON CONSOLE. 



"WNAND0001DAT" 



HOVE 11 TO X. 

HOVE 2 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "XKAS:" UPON CONSOLE. 

MOVE 12 TO X. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "PARrY:" UPON CONSOLE. 

HOVE 13 TO X. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "BUSINESS:" UPON CONSOLE. 

HOVE 14 TO X. 

PERFORM ZllO-ACA THRU ZllOX. 

DISPLAY 1-0 "BILL:" UPON CONSOLE. 

CALL "NAHP002A" CHAIN. 

COPY "WWFCCPTOOCBL". 



IDENTIFICATION DIVISION. 
PROGRAM- ID. NAMP0002. 
ENVIRONMENT D1VIS0N. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT SAME- FILE ASS1CN TO 
ACCESS MODE IS RANDOM 
FILE STATUS IS NAME-STAT. 
DATA DIV1S0N. 
FILE SECTION. 
FD HAHE-F1LE. 
01 NAME-RECORD PIC X(126). 
WORKING-STORAGE SECTION. 
01 WS-TITLE PIC X<27) 

VAU1E "NAME/ ADDRESS MAINTENANCE " 
01 WS-RESPONSE PIC X(OI). 
01 REC-NO PIC 1(2) VALUE 0. 

COPY "WWFCCDTOOCBL". 

COPY "WNAMCDMSTCBL". 
PROCEDURE DIVISION. 

OPEN I-O NAME-FILE. 

HOVE ALL "Z" TO WS-NAR-FIRST-NAHE. 

PERFORM R100-READ-FILE THRU RIOOX 
VARYING REC-NO FROM I BY I 

UKTIL WS-NAR-F1RST-NAME < "A" OR 
WS-NAR-FIRST-NAHE - "END". 

PERFORM AOOO-ADD-RECS THRU AOOOX. 

CLOSE NAME-PILE. 

CALL "NAMP0001" CHAIN. 
AOOO-ADD-RECS SECTION. 

PERFORM A100-PR0CESS-L00P THRU A100X 
UNTIL WS-NAR-FIRST-NAME - "END". 
AOOOX. EXIT. 
A 1 00- PROCESS- LOOP. 

PERFORM C100-CLEAR-F1ELDS TRRU C100X. 
AI01-FIRST. 

MOVE i TO X. 

MOVE 13 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

ACCEPT WS-NAR-FIRST-NAME FROH CONSOLE. 

IF WS-NAR-FIRST-NAME - "END" 
CO TO AIOOX. 
A102-LAST. 

HOVE i TO X. 

HOVE *J TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

ACCEPT WS-NAR-LAST-NAME FROH CONSOLE. 

IF WS-NAR-LAST-NAME - "<" 
CO TO A101-FIRST. 
A103-ADD1. 

HOVE 7 TO X. 

HOVE 13 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

ACCEPT WS-NAR-LINEI FROH CONSOLE. 

IF WS-SiAR-LINEl - "<" 
CO TO A102-LAST. 
AI04-ADD2. 

HOVE 7 TO X. 

HOVE *J TO Y. 

PERFORH ZllO-ACA THRU ZllOX. 

ACCEPT WS-NAR-LINE2 FROM CONSOLE. 

IF WS-NAR-L1NE2 - "<" 
CO TO A 1 03- ADD 1. 
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Aiu!>-cm. 

HOVE 9 TO X. 

HOVE 13 TO Y. 

PERFORM ZUO-ACA THRU ZIIOX. 

ACCEPT US-NAR-CITY FROH CONSOLE. 

IF WS-NAR-C1TY - "<" 

CO TO A10b-ADD2. 
A106-STATE. 

HOVE 9 TO X. 

HOVE 31 TO Y. 

PERFORM Z1IO-ACA THRU ZIIOX. 

ACCEPT WS-NAR-STATE FROH CONSOLE. 

IF WS-NAR-STATE - "<" 

CO TO A105-CITY. 
A107-ZIP. 

HOVE 9 TO X. 

HOVE 39 TO Y. 

PERFORM ZUO-ACA TURD ZIIOX. 

ACCEPT US-NAR-ZIP FROM CONSOLE. 

IF WS-NAR-Z1P - "<" 

CO TO A 1*6- STATE. 
A108-TEL. 

HOVE 9 TO X. 

HOVE 5* TO Y. 

PERFORM ZUO-ACA THRU ZIIOX. 

ACCEPT WS-NAR-PHONE FROM CONSOLE. 

IF WS-NAR-PHONE - "<" 

CO TO A107-ZIP. 
A109-XMAS. 

HOVE II TO X. 

HOVE 12 TO Y. 

PERFORM ZUO-ACA THRU ZIIOX. 

ACCEPT WS-NAR-XKAS FROH CONSOLE. 

IF WS-NAR-XHAS • "<" 

CO TO A108-TEL. 

AllO-PARTY. 

HOVE 12 TO X. 

PERFORM ZUO-ACA THRU ZIIOX. 
ACCEPT US-NAR-PARTY FROM CONSOLE. 
IF US-NAR-PARTY - "•<" 

CO TO A109-XKAS, 
AU1-BUS1NESS. 

HOVE 13 TO X. 

PERFORM ZUO-ACA THRU ZIIOX. 

ACCEPT WS-NAR-BUSINESS FROH CONSOLE. 

IF WS-NAR-BUSINESS - "<" 

CO TO AUO-PARTY. 
AU2-BILL. 

MOVE 14 TO X. 

PERFORM ZUO-ACA THRU ZIIOX. 
ACCEPT WS-NAR-BILL FROH CONSOLE. 
IF WS-NAR-BUL ■ "<" 

CO TO AU1-SUSINESS. 
A199-CONF1RM. 

HOVE 16 TO X. 

HOVE 1 TO Y. 

PERFORM ZUO-ACA THRU ZIIOX. 

DISPLAY 1-0 "Enter If' to confirm »dd. " 

UPON CONSOLE. 
ACCEPT US-RESPONSE FROH CONSOLE. 
IF WS-RESPONSE • "Y" 

NEXT SENTENCE 
ELSE 

IF WS-RESPONSE - "<" 
GO TO AU2-BILL 

ELSE 

GO TO AIOOX. 
WRITE NAME-RECORD FROH WS-NAKE -ADDRESS-RECORD. 
ADD 1 TO REC-NO. 
PERFORM R 100- READ- FILE THRU R100X 

VARYINC REC-NO FROM REC-NO BY 1 
UNTIL WS-NAR-FIKST-NAME < "A". 
AIOOX. EXIT. 

C100-CI.EAR-FIELDS SECTION. 
HOVE 5 TO X. 
HOVE 13 TO Y. 

PERFORM ZUO-ACA THRU ZIIOX. 

PERFORM C200-DISPLAY-DASH THRU C200X 20 TIMES. 
HOVE 4} TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 
PERFORM C200-DISPLAY-DASH THRU C200X IS TIKES. 



HOVE 7 TO X. 

MOVE 13 TO Y. 

PERFORH ZUO-ACA THRU ZUOX. 

PERFORM C200-DISPLAY-DASH THRU C200X 20 TIMES. 

HOVE 45 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

PERFORM C200-DISPLAY-DASH THRU C200X 20 TIKES. 

HOVE 9 TO X. 

HOVE 13 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

PERFORM C200-DISPLAY-DASH THRU C200X 10 TIKES. 

HOVE 31 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

PERFORM C200-DISPLAY-DASH THRU C200X 2 TIKES. 

MOVE 39 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

PERFORH C200-DISPLAY-DASH THRU C200X 9 TIKES. 

HOVE 54 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

PERFORM C200-DISPLAY-DASU THRU C200X 10 TIKES. 

HOVE 12 TO Y. 

HOVE II TO X. 

PERFORM C300-CLEAR-FLACS THRU C300X i TIHES. 

HOVE 16 TO X. 

HOVE 1 TO Y. 

PERFORM ZUD-ACA THRU ZUOX. 

PERFORM Z020-E01-ERASE THRU Z020X. 
CIOOX. EXIT. 
C200-DISPLAY-DASH. 

DISPLAY 1-0 "_" UPON CONSOLE. 
C200X. EXIT. 
C300-CI.EAR-FLACS. 

PERFORH ZUO-ACA THRU ZUOX. 

PERFORM C200-DISPLAY-DASH THRU C200X. 

ADD 1 TO X. 
C300X. EXIT. 
R10D-EEAD-FUE SECTION. 

READ NAHE-FIIE INTO WS-NAKE-ADDRESS-RECORD 
KEY IS REC-NO 

INVALID KEY 

PERFORM Y 100- FILE- ERROR THRU YIOOX. 
R100X. EXIT. 
Y100-FILE-ERROR SECTION. 

HOVE lb TO X. 

HOVE 1 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

DISPLAY 1-0 "FILE ERROR " NAME-STAT 
" RECORD * " REC-NO 
" <CR^ TO CONTINUE" 
UPON CONSOLE. 

ACCEPT WS-RESPONSE FROM CONSOLE. 

HOVE "END" TO WS-NAR-FIRST-NAME . 
YIOOX. EXIT. 

COPY "WWFCCPT00C8I". 

IDENTIFICATION DIVISION. 
PROCRAM-ID. NAHP0003. 
ENVIRONMENT DIVISON. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT MAKE-FILE ASSICN TO "WNAMDOOO 1 DAT" 
ACCESS IS RANDOM 
FILE STATUS IS NAME-STAT. 
DATA DIVISON. 
FILE SECTION. 
FD NAKE-PILE. 
01 HAKE-RECORD PIC X(126). 
WORK INC-STOR ACE SECTION. 

COPY "WNAMCDINQCBI,". 

COPY "WWPCCDTOOCBl". 

COPY "WNAMCDRSTCBL". 
PROCEDURE DIVISION. 

COPT "WWFCCPTOICBL". 

HOVE I TO Y. 

HOVE 5 TO X. 

PERFORM ZUO-ACA THRU ZUOX. 

DISPLAY 1-0 "FIRST NAME:" 
UPON CONSOLE. 

MOVE 34 TO Y. 

PERFORM ZUO-ACA THRU ZUOX. 

DISPLAY 1-0 "1.AST NAME:" 



68' Micro Journal 



August 85 



■41 



UFON CONSOLE. 
MOVE 7 TO X. 
HOVE 1 TO Y. 

PERFORM ZMO-ACA THRU ZltOX. 
DISPLAY 1-0 "ADDRESS Is" 

UPON CONSOLE. 
MOVE 3* TO Y. 

PERFORM Z1I0-ACA THRU ZiiOX. 
DISPLAY 1-0 "ADDRESS 2:" 

UPON CONSOLE. 
MOVE 9 TO X. 
MOVE I TO Y. 

PERFORM ZIIO-ACA THRU ZIIOX. 
DISPLAY 1-0 "CITY:" UPON CONSOLE. 
MOVE 24 TO Y. 

PERFORM ZIIO-ACA THRU Z110X. 
DISPLAY 1-0 "STATE:" UPON CONSOLE. 
MOVE 34 TO Y. 

PERFORM ZIIO-ACA THRU Z110X. 
DISPLAY 1-0 "ZIP:" UPON CONSOLE. 
MOVE 4? TO Y. 

PERFORM ZIIO-ACA THRU Z110X. 
DISPLAY 1-0 "TEL:" UPON CONSOLE. 
MOVE 11 TO X. 
MOVE 2 TO Y. 

PERFORM ZUO-ACA THRU ZIIOX. 
DISPLAY 1-0 "XMAS:" UPON CONSOLE. 
MOVE 12 TO X. 

PERFORM ZIIO-ACA TMRU ZIIOX. 
DISPLAY 1-0 "PARTY:" UPON CONSOLE. 
MOVE 13 TO X. 

PERFORM ZUO-ACA THRU ZIIOX. 
DISPLAY 1-0 "BUSINESS:" UPON CONSOLE. 
MOVE 14 TO X. 

PERFORM ZIIO-ACA THRU ZIIOX. 
DISPLAY 1-0 "BILL:" UPON CONSOLE. 
OPEN 1-0 NAME-FILE. 
CALL "NAMP003B" OVERLAY. 
COPY "WWFCCPTOOCBL". 

IDENTIFICATION DIVISION. 
PROGRAM- II). NAMP003A. 
ENVIRONMENT DlVISON. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT NAMt-FlLE ASSICN TO "WNA.13000IDAT" 
ACCESS MODE IS RANDOM 
FILE STAIUS IS NAME-STAI. 
DATA DlVISON. 
FILE SECTION. 
PD NAME-FILE. 
01 NAME-RECORD PIC X(l2b). 
WORKING-STORAGE SECTION. 

COPY "WNAMCDUPDCBL". 

COPY "WWPCCDTOOCBL". 

COPY "WNAMCDMSTCBL". 
PROCEDURE DIVISION. 
AOOO- INQUIRY-CONTROL SECTION. 

ACCEPT US-LAST-NAME FROM CONSOLE. 

IF US-LAST-NAME - "END" 
CLOSE NAME-FILE 
CALL "NAMPOOOI" CHAIN. 

MOVE ZERO TO US-REC-NO. 

PERFORM AIOO-INQUIRY-LOOP THRU A100X 
UNTIL US-NAR-LAST-NAME - "1". 

MOVE SPACES TO US-NAME-ADDRESS-RECORD. 

CALL "NAHP003B" OVERLAY. 
AOOOX. EXIT. 
AIOO-INQUIRY-LOOP SECTION. 

MOVE TO EOF-FLAG. 

PERFORM R100-READ THRU R100X 

VARYING US-REC-NO FROM US-REC-NO BY 1 
UNTIL US-NAR-LAST-NAME - US-LAST-NAME. 

IF EOF-FLAG - 1 
GO TO A100X. 

PERFORM J000-D1SPLAY THRU BOOOX. 
A101-ASK. 

MOVE 16 TO X. 

MOVE 1 TO Y. 

PERFORM ZIIO-ACA THRU ZIIOX. 

PERFORM Z020-EOL-ERASE THRU Z020X. 
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DISPLAY 1-0 ""C'-continue, 'I'-neu Inquiry, "E'-end 
UPON CONSOLE. 

ACCEPT WS-RESPONSK FROM CONSOLE. 

IF US-RESPONSE - "C" 

MOVE SPACES TO US-NAR-LAST-NAME 
GO TO AIOOX. 

IF US-RESPONSE • "I" 

M»VE "I" TO US-NAR-LAST-NAME 
GO TO AIOOX. 

IF US-RESPONSE - "E" 

CALL "NAMPOOOI" CHAIN. 

GO TO A101-ASX. 
AIOOX. EXIT. 
BOOO-DISPLAY SECTION. 

MOVE 5 TO X. 

MOVE 13 TO Y. 

PERFORM ZIID-ACA THRU ZIIOX. 

DISPLAY 1-0 US-SAR-FIRST-NAME UPON CONSOLE. 

MOVE 4S TO Y. 

PERFORM ZIIO-ACA THRU ZIIOX. 

DISPLAY 1-0 US-NAR-LAST-NAME UPON CONSOLE. 

MOVE 7 TO X. 

MOVE 13 TO Y. 

PERFORM ZUO-ACA THRU ZIIOX. 

DISPLAY 1-0 WS-NAR-tlNEI UPON CONSOLE. 

MOVE 45 TO Y. 

PERFORM ZIIO-ACA THRU ZIIOX. 

DISPLAY 1-0 US-NAR-L1NE2 UPON CONSOLE. 

MOVE 9 TO X. 

MOVE 13 TO Y. 

PERFORM ZUO-ACA THRU ZIIOX. 

DISPLAY 1-0 US-NAR-Cm UPON CONSOLE. 

MOVE 31 TO Y. 

PERFORM ZIIO-ACA THRU ZIIOX. 

DISPLAY 1-0 US-NAR-STATE UPON CONSOLE. 

MOVE 39 TO T. 

PERFORM ZUO-ACA THRU ZIIOX. 

DISPLAY 1-0 US-NAR-Z1P UPON CONSOLE. 

MOVE 5* TO Y. 

PERFORM ZIIO-ACA THRU ZIIOX. 

DISPLAY 1-0 US-NAR-PHONE UPON CONSOLE. 

MOVE II TO X. 

MOVE 12 TO Y. 

PERFORM ZUO-ACA TMRU ZIIOX. 

DISPLAY 1-0 US-NAR-XMAS UPON CONSOLE. 

MOVE 12 TO X. 

PERFORM ZIIO-ACA THRU ZUOX. 

DISPLAY 1-0 US-NAR-PARTY UPON CONSOLE. 

MOVE 13 TO X. 

PERFORM ZUD-ACA THRU ZIIOX. 

DISPLAY 1-0 US-NAR-BUSINESS UPON CONSOLE. 

MOVE 14 TO X. 

PERFORM ZUO-ACA THRU ZIIOX. 

DISPLAY 1-0 US-NAR-BILL UPON CONSOLE. 
BOOOX. EXIT. 
R100-READ SECTION. 

READ NAME-FILE INTO US-NAHE-ADDRESS-RECORD 
KEY IS US-REC-MO 
INVALID XEY 
MOVE I TO EOF-FLAC 
MOVE "!" TO US-LAST-NAME 
MOVE "I" TO US-NAR-LAST-NAME. 
RtOOX. EXIT. 

ZOOO-TERHINAL-CONTROL SECTION. 
ZOO 1- DELAY. 

ADD 1 TO DELAY-VAR. 
Z001X. EXIT. 
Z020-E0L-ERASE. 

D1SPIAY 1-0 505 UPON CONSOLE. 

HOVE ZEROES TO DELAY-VAR. 

PERFORM ZOO 1 -DELAY THRU ZOO IX 
UNTIL DELAY-VAR > 600. 
Z020X. EXIT. 
ZIIO-ACA. 

DISPLAY 1-0 SIB S3D 

ACA-ADDRESS (X) ACA- ADDRESS (Y) 
UPON CONSOLE. 
ZUOX. EXIT. 
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OS-9 SETIME 
Module 



TEE TIME IS KM 
by Oral E. Crow a 

The SETIME aodule chat coaca with OS-9 la not very 
convenient to uae. It requlrea you to enter the coaplete 
date and tlae even U all you want to do is aove the tine 
ahead one hour. If you are exacting about the tlae <aa I 
• ■) you get very annoyed by SETIME defaulting everything 
to xero. I can't think of any situation when I would want 
to aet the date to zero and the tines when I an setting 
ay clocks to exactly 00:00:00 are pretty rare too. As 
long aa I was using the 0S-9 CLOCK nodule aupplled with 
the coaputer, I didn't do anything about It. When I 
wanted to write a CLOCK aodule for my Robertson 
Electronics CLK 68-1 SS30 bosrd I decided to do something 
about SETIME too. 

Since I sa so exacting about the tlae (I know the 
nuaber of the National Bureau of Standards by heart) I 
didn't like the way the aoftware clock aodule arbitrarily 
threw away clock ticks while the floppies were In use. 1 
don't turn ay ayatea off very auch and by the end of a 
week I could be aeveral ainutea alow. This wss 
Intolerable. I had a CLK 68-1 board froa Robertson 
Electronics. There Is sn sdjustnent on the cryatal to 
aet it very precisely. The sccurscy la aatlafactory even 
to ay exacting atandards- Now all I needed was a 
aoftware CLOCK aodule for 0S-9. There wasn't one st the 
tlae I bought the board. 

I hsd Just retired the old SWTPC 6800 system. 0S-9 
was still new to ne. Writing the clock aodule looked like 
a good way to learn 0S-9. The 6809 asseably language 
didn't look to bad. 1 had been writing asseabler 6800 for 
years. 0S-9 hsd things cslled "eyatea calls" thst looked 
very strsnge to s guy used to JMFlng right Into FLEX. I 
hsd soae 0S-9 prsctlce while writing the vlrtusl disk 
progrsa {-TURBO": '68 MICRO. Feb '85.p24.) This looked like 
a good way to get soae more. 

Conparad to the prograa to aet It, the CLKK aodule 
Itself wss quite easy to write. All It hsd to do waa 
Initialize the PIA and read the clock at regular 
Intervals. For this 1 could borrow froa the 6800 FLEX 
version of tbe softwsre. Utifortunstely I still couldn't 
CHANGE the tlae. The clock is aet by shifting s string 
of digits Into It. Getting the dste/tlae string Into the 
correct format froa the coaaaad line turned out to be 
the bardeat. I finally wrote up the tine setting code 
Into a little aodule naned TODset, which I could call froa 
aoaeplace and band It a coapleted digit atrlng. The 
first aaln prograa I tried Juat linked to this progrsa 
naaed TODset and passed It s predetermined atrlng. I 
could change the atrlng using DEBUG and execute It to 
get tha tlaa aet. That waa last September. I hsd 
stsrted the CLOCK aodule In May of 1984 and It still 
hsdn't been telling the correct tlae. I uaed ay kluge naln 
prograa twice. In Septeaber I used It to correct the 
clock which waa off aeveral minutes in the two years since 
it had been last aet. I uaed It again In October to 
change back to Central Standard tlae. It la now Hay, 
198S. Setlae waa finished Juat In tlae to awltch to 
Daylight Savings. 

A project that lasts over a year should LOOK bigger. 
The three aodulaa that aake up the project only totsl 
1200 lines of ssaeabler. I confess It ian't the only 
thing I've done for a year (I have to spend s little tine 
on aoftware teatlng at the office for which I get paid 
enough to keep tha wolf froa repoasesslng ay ELEKTRA.) On 
the other hsnd SETIME did present s chsnee to prsctlce 
sll the grsst progrsaalng techniques I hsd learned froa 
'68 MICRO and other placea. I eagerly attacked It with 
all the weapons in ay araenal. I flow-charted. I 
paeudo- coded. I nodularlied. I even built Creg Morse's 
aeaory and reglater duap code Into It. I carefully 
tested esch subroutine by Itself end fixed the bugs one 



by one. Greg'a routines aade It very easy to find where 
things were going wrong. Flnslly the big dsy came. I 
aaseabled the whole thins. I tried It. It WORKED! 

The veralon of the prograa I preaent here contains 
two condltlonsl paraaetera. 'Debug* Invokes the code to 
call Crag Morae'a duap routines which I keep In a aource 
library. The other la "Rbtan" which Invokes the code to 
aet the tlae on the Robert aon Electronics CLK 68-1. If 
"Rbtan" equals xero SETIME uses the OS-9 FSSTD4 cell and 
can be uaed on any ayatea. If set to not-zero, then the 
paraaeter string la converted to the proper format for 
tbe TOOaet nodule- SETIME tries to fSllnk to this aodule 
end fslllng thst tries to fSload It froa the default 
execution directory. If everything Is oksy OS-9 returns 
the stsrtlng address in the Y reglater. TODset ends 
with s RTS Instruction. It Is cslled with s "JSR ,¥*. 
For other hsrdwsre clocks It should only be necesssry to 
chsnge two subroutines In the progrsa. "Convert' changes 
the current ayatea tlae to TODset foraat. "Doaet" calls 
the TODset routine. Also If the hsrdwsre clock In 
question doesn't support the dsy of the week, the "parse" 
subroutlns will need s chsnge. 

I will ssnd you s copy of the source if I get s 0S-9 
formstted 5-1/* Inch disk In s reussble mailer and $2.00 
beer aoney. I can handle 35 or *0 tracks, single or 
double density, single or double side. 0b yet, also Tandy 
Color Coaputer 0S-9 foraat. All correapondence ahould go 
to: 

0E Groves 

10207 Gillette 

l«nexa Kan. 66215 

OS-9 la a tradeasrk of KLcrovsre Systems Corp; Elektra Is 
s tradeasrk of AAA Chicago Cos-pater Center; SaTFe 6800 
la s tradeasrk of Southwest Technical Products Corp; CLK 
6B-1 Is s tradeasrk of Robertaon Elect ronlca; PUS Is a 
tradeasrk of Technical Systems Cooaoltanta; TRS-80 Color 
Computer la s trsdeaark of Tandy Corp. 

DOCUMENT ATI <M 

Setlae haa laproved ayntax and expanded options which 
aake It auch aore 'friendly" to tbe uaer. Xtit syntsx of 
setlae Is YY/MM/DD,HH:MM:SS<CR>. The progrsa will reset 
the tlae to: 

Year - YY 

Month - KM 

Day of antb - DO 



Hour 

Minute 

Second 



HH 



SS 



Setlae will accept any sensible string to set psrt of 
the dste/tlae. For exaaple: ./5/59 will aet Juat the 
ainutea and aeconda. The current ayatea tine is read 
and only the apeclfled CHANCES are written back. NOTE: 
commas and apacea aeparate aubatrlnga and any non alpha- 
numeric will aeparate digits. 

• This program picks up a date/time 

• string from the command line if there is 

• one. The clock board is initialised, 

• interrupts are set to 32 per second and the 

• FST1ME system call is set up. If the 

• command line Mas empty the system date/time 

• is displayed and a request is issued for 

• update. •if the response is a carnage 

• return the program exits. If the user 

• responds with a new date/time string of the 

• form: DOW , YY-MM-DD ,hhi mm: ss< cr > the eloel 
•hlII be reset to: 



• day of week 
a 

» year 
» month 

• day of mnth 



- DOW (only first two 

letters arm needed) 

- VV 

- Mr! 
. DD 
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hour 


- hh 


minuti 


■ mm 


••cond 


- SB 



buff rriib 35 read from itdin 

tndat tqu . 

• • 

• Sttidil Hill tccipt any itnublt itring tn • reifrvi at lea<t 200 bytes decimal r the 

• set part of the tint and date. For example: • mtack and end on a page boundry 

• , ,5-59<cr> Hill set Just the minuttl and » 

• itcondi. NOTMi commas or ipicn uptrttt mtack rmb ( ( endat ♦# 1CB) !-*FF0Q) -endat 

• mubmtringm and any non al phj-mr i c Hill memset iqu . 

• separate digits. * 

• ntnitt (cs "iftini" 
nam utime todmtr fern "todset" 
ifpl okstr fee 0k«<cr> or 
OPT -L dtmini fee 'DQM' 

use /dl/elektra_def s/os9def s oknr fee - YY-r)rl-DD,hh: mmi » ' 

•ndc feb *d,«a+«e0 

ttl met system time and data moduli daytib fee 'SunrlonTueWedThuFriSat ' 

• feb vtri 

vers met 1 vcrtion number • 

type met orgrm+objet « » « • ind moduli definition 

nulint met BO control input missing error » 

badinp set Al illegal inout rmat error • This part of the program does the mit*li:inq 

badrng set 52 number out of range error • 

ops set reent*vers ■ » • Initial:* mtoragm mrm* 

• » 

• NOTE This program may be used without lnit 1 eax sysyy, u 

• the Robertson board by setting "fibtsn" to 0. lab MIS IS bytes in time packet 

• clra 

Rbtsn set deca put hex FF in all time packets 

• mil it< ,x» 

• This is the module definition section • • • decb 

• bne i ni 1 

• • » • Inke debugging code leay dtmini ,pcr init D/T strng 

• i ni 2 1 da , y* 
debug set sta ,x* 

• bpl i nl 2 
mod endset .namset , type ,ops ,strset ,memset rts 

• • 

ifgt debug • • • • end Imtali sation 

use /d 1/el ektra_def s/debug. sre • 



endc 



• This part of the Program gets the date/time 



svd t rt.b 2 gitimi 1 eax sysyy,u get addr of time packet 

svx rmb 2 oi9 fftime 

svy rmb 2 sta dou save diy of Heel 

« rts 

» * • decimal dipits • 

• • • • • end of get current date/time 

tencnt rmb 1 • 

huncnt rmb 1 * This is the main program which calls all 



• of the others 



counters for parse 



stgsep rmb 1 strset equ « 

numsep rmb 1 std svd keep end line pointers 

• stx svx 

• set up system time packet sty svy 

• bsr init initailize storage 
sysyy rmb 1 * 

sysmth rmb 1 • • • conditionally invoke debug code 

sysdd rmb 1 * 

syshh rmb 1 lfeq debug-1 

sysmm rmb 1 lbsr shoregs 

sysss rmb 1 pshs x,y,d 

• 1 eax sysyy , u 
don rmb 1 day of neek ldy •< 15+24 > 
fig rmb 1 time/date string is changed lbsr shomem 

• pul s x ,y ,d 

• set up todset packet endc 

• • 

todyy rmb 1 lbsr get i me get system time 

todmth rmb 1 • 

toddd rmb 1 * * • conditionally invoke debug code 

dhh rmb 1 • 

todmm-rmb 1 >*»0 debug-1 

todss rmb 1 pshs x,y,d,cc 

• lbsr shoregs 
todow rmb 1 \m»*. sysyy, u 
dtmstr rmb 4 set up date/time str to stdout 1 dy *<13*24> 
dtmnr rmb 24 lbsr shomem 
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pul m x . y , d ,cc 

endc 
• 

bcc clkok 

cmpb #208 tfilnd-clock modol > not thsrt - ' 

bnt iftfxit othtr problem 

leax todyy.u initiih:i clock module 

om9 <tftim 

bem fttfxit 

clr dm 
clkok bmr pint gat new time from end line 
• 

• • • conditionally invoke debug code 
• 

i4iq debug- 1 
pshs x ,y ,d,cc 
lbmr mhoregm 
ltix mymyy.u 
ldy "(15*24) 
lbmr shomem 
pul* x ,y ,d ,cc 
endc 

bcc linol; 

cmpb Unuline empty line* 7 
bne setexit 

lbsr display thow cur time b ami: for change 
bci metexit 
mtd mvd 
■tx mvx 

bmr parme get remponme 
« 

• • • conditionally invoke debug de 
* 

ifeq debug-1 

pshs K,y,d,cc 

lbmr mhoregm 

leax mymyy.u 

ldy •(13-24) 

lbmr mhomem 

pulm x ,y ,d,cc 

endc 
« 

bcc linok 

cmpb Unuline no input? 

brte metexit error 

clrb no error 

bra metexit 
linok lbmr get 1 me get cur time 

lbmr convert change to TODmet format 
• 

• » • conditionally invoke debug code 
• 

1 1 eq debug- 1 

lbmr mhoregm 

pmhm x ,y,d 

leax: sy»yy,u 

ldy »(J5*24) 

lbmr mhomem 

pul m x ,y ,d 

endc 
• 

lbmr domet met the time 
metexit om9 f Sex it 
« 

• • • • end of main program 



• Thim routine parmem a date/time string of 

• the for mi 
• 

• Dow,YY-W1-DD hhiMiin<cr> 

• into TODmet format 

• 

• INPUT 

• mvx - buffer pointer 

• dp,u - paramater *ra* 

• mvd * number of characterm in buff 
• 

• OUTPIA 
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• x ■ end address of input string 

• dp,u " unchanged 

• d " distroyed 

* 

• CI2,uJ" date/time string o* the form: 

• VV mth DL hh mm *S 

• HEX HEX BCD BCD BCD BCD 

• for use by the TODset program 



parse is called byi 
main 



• parse calls; 

• nxtch 

• bedhx 

• getnum 

• getdOH 
• 

parse equ * 
clr stgsep 
clr numsep 
clr fig 
ldd svd 
ldx ivy. 



• if the line is empty then rtn a nuline error 
* 

empd Ml 
bgt pal 

comb set carry bit 
1 db ttnul 1 ne 
rts 
• 

• else while (nxtch ■■ EOF) 
« 

pal lbmr nxtch gat ne::t char, in buffer 
* 

* * • conditionally m/oit desjg cod* 
• 

ifeq debug-2 
pshs x , y ,d ,cc 
lbsr shoregs 
leax svd.u 
ldy II (15->-24-»35> 
lbsr shomem 
pul s x ,y ,d,cc 
endc 



pshs cc keep carry bit 
empa ««d a I EOF? 
bne pa2 

clrb yes-go back 
pulm a, pc 
« 

* if (nxtch !■ alpha-numeric) then CASE nxtch 

« 

pa2 Is cc recover carry bit 

bcc pa3 is char- alph-num*' 

empa ■', nxtch » comma? 

bne pa4 

i nc stgsep 

clr numsep 

lbra endwhl 
pa4 empa »»20 nxtch » space? 

bne pa6 
pa20 lbsr nxtch skip spaces 

empa MS20 

beq pa20 

1 eax -l,x 

inc stgsep count only one space 

clr numsep 

lbra endwhl 
pa6 empa M*d nxtch « EOF 

bne pa7 

lbra inperr 
pa7 inc numsep nxtch ■ anything else 

lbra endwhl 
• 

• else (nxtch m alpha-numeric) CASE stgsep 
pa3 ldb stgsep 

ifne Rbtsn 
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bne? p*6 itgtep 0"> - do Day o4 Meet 
Ibsr getdOM 

• 

• • • nditionally invott debug code 
• 

endc 

ifeq debug-2 

pshs x ,y,d,cc 

Ibtr ihoregi 

leax avd,u 

ldy #( 15*24*35) 

Ibsr fhompin 

pul a x ,y,d,cc 
* 

endc 
* 

i <ne Rbtan 
* 

inc * J g 

lbcs inperr 

Ibr? endwM 
pa8 decb 

H 

endc 

» 
bne pa9 at ditr string" 1 - CASE numsep 
ldb numaep 

bne palO numsep •O"" - do Year 
1 eay todyy.u 
ldb »*99 
lbsr getnum 



ao»m»*»f loott *' J . *. U X*^ 1 5 ' 



Dr. Dobb's Journal 
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Don Williams 

Computer Publishing Canter 

68 Micro Journal 

5900 Catssndre Smith Rd 

HUM TN 37343 

DMW, 

Over teven yeeri Congratulations' tt s been > ilor my year or so (or 
computer magacuus, will) UM Sof talk bunch folding end Ziff-Davis shooting 
ii< feet oft. but a few old-timers ere surviving the storo. including (I Micro 
Journal, sticking it out viln UM kind of inugrity that has been oat of UM 
ban failure! of UM true microcomputer pioneers But u you sou. you can 
(at at lonely ti a Maytag repiir mm Lonely because, etrly on. the preit 
flocked totheSIOOcrovd. end liter It nattered about IBM aod hovered over 
i former noobyist company thil hn grown too big. forgotten its root), lost 
in finest liient. nisperceived m oirkels end locked i powerful 
microproeeitor in I doled architecture machine wiih e paternalistic user 
interface Looe y because book! like Fire in the Valley duo 1 tell the whole 
•lory (1 could argue thai no book ever tells ihe whole story and that but 
that i all natter for another leuer I 

But the peuple vho sav the advantages uf 6Bn systems had no 
reason to be lonely because, since 1978. they ve had 68 Micro Journal, filled 
with tips and bug fues. code and construction articles smoking soapboies 
and raobbngs and such bcspue suae idiosyncrasies of grammar you 
deliver Ihe 6Bn goods You shuild be proud 



conditionally I nvol e debug cede 



i feq debug-2 
pahs x,y,d,cc 
Ibsr shoreoi 
leax svd,u 
ldy I* (lS*24 + 35> 
Ibsr shomem 
pul s x,y,d,cc 
endc 



To be Coa.tlo.aed. 



Bit Bucket 



ARKANSAS TELEPHONE COMPANY. INC. 

RN«|{*allN.# p. 0. BO* at 

CLlMTON. ARKANSASnwi 



nr. Larry «. U I ) I I a-u . Exlcniva Bdllor 
ft©' nicro Journal 
r>.0. k« 64ft 
HlntMft. Tfl. 37343 

Qmmr Mr. U1 I ) 1 •-■ 

U* •*•• trying to localo • cooptai* GaftOral LadSar paefcaoa ulih a}] 
tha ralatvd MfUiri for an 03-ft ifitam which h«a fc>**n urltlOA for 
uti) | ty accrru nti ng , Um ****phaa} t« uil) lly <a thin t • • vtrr apoc | - 
fie waihod of accounting r«Qi#Lrf4 for utllltiaa (Rural Electric 
Coo par at I «•• and cor tain To I aphona Coawpaniaa) by tha 1 oca 1 and 
■lata raQuI •lory coaaa i aa lona , Fwloril CoMun Icat-leno <FCC) and 
■ ural Elactrle Ada! nat r at Ion (*€*). 

Ho hava a. H«itlwooO Co- put**- 3ri'*M. Kallx OJ-B, Laval II V 1.1, 
with 2S© K. 2ft odgabyta Ulnchaatar tnd $ 3/4* floppy a i oh drlvtt. 



flo. Chr mint Koch a r or Coo>putor Pub I lihing ouggaatad tKat »ayba 
thio latl-ai could bo publlaHad In your 'lattar to th« tdltor* 
colua and Mayo* ona of your r a ad or a *n ight ba of ■•■! atanca . 



U#ry truly your a, 



SLa-^-f- 



Too u 



Cunm fifth** 

tookkaapar 



m 

Mike Swaitw 
DOJ 



m& i i*wHHhf«. in« 6 iafralMluhAlmfia^.r^tikantAaaaaK aiiataaavan 

Ed's Note: Thanks Mike, your nice letter 
has made our day. Dr. Dobb's was our 'role 
model' for the manner of handling authors 
and articles, when we first started. Reader 
participation seemed such a necessary part 
of a 'real' users forum. 

I must say that Dr. Dobb's Journal has 
also remembered us even to this day. While 
general in nature we all get a big smile 
when we find one of your 68XX articles. 
Which is more than most all the others, 
besides us, are doing for 68XX users. 

We are proud, Mike. Not just because 
we were able to hang in there. But because 
our readers, advertisers and others hung in 
there with us. And it is a very special 
kind of pride we feel, when I receive a 
letter, such as this very kind one from you. 
And I might add, "Thanks, I needed that." 
Again, you made our day! 

All of us here at CP1, wish only the best 
for you and the crew there at Dr. Dobb's. 
You too fill a very special place that the 
others have left void. As this thing 
changes a lot of users and readers are 
beginning to understand that being big ain't 
everything! Have a GOOD one all! 



DMW 
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cat** 

Introducing ths CM-020" - nc&a020 Processor 



nc&S020 32-Bit Microprocessor 




froa GIHIX 



The cnx-020 CW Board uses the stat.-- of-th*-art nc&a020. 
the newest and «o»t powerful wifarr of notorola's H6S000 family 
of elcroprocessora. The nC68020 la a full 32-bit processor with 
separate 33-blt address end data buses, an on-chip Instruction 
cache, and a coprocessor Interface, The ttCSBOlO Is object-code 
compatible with earlier *.etkt>*rs of the nfcflOOO faally. with 
•nhanctenti to the Instruction set providing additional support 
for high-level languages and eysteas software. The processor 
also supports dreand-peged virtual aes-ory. 

The pipelined Internal architecture of the "IC68020 allows 
overlapping execution of Instructions, and can result In a net 
Instruction execution time of zero under certain clrcuna tonces. 
This, along with the on-chip cache and other enhancements make 
the processor typically 400* sore powerful than Its 
predecessors * The 16 KHz version can process Instructions at a 
sustained rate of 2 to 3 allllon Instructions per second (Hi PS) 
and at burst ratss exceeding 8 nZPS. 

GHX-020 Processor Board 

The cnx-020 CPU Board Is designed for aaxlau*- utilisation 
of the power of the nC66020, while retaining coopat ibllity with 
the already proven GIHIX line of peripherals such as OKA disk 
control lira and Intelligent 1/0 processors. The board features^ 



MC68020 processor operating at « 12 
RHz optional when available) 



5 khe clock rate (16.5 



A 4K byte (IK long word) instruction-only physical address 
cache operating at full processor speed Eno wait-states) . 
The on* board cache can be operated in any one of four aodes 
to opt la lie cache utilization for s particular operating 
system or application. The cache RATI can aLso be used at 
high-speed (no wait- at at a) fu\n when the cache la not 
enabled. 

. A high-speed, discrete Hetaory Managt-oent Unit <MnU) that 
supports auitl-user. aultl-tasklng operation and 

demand-paged virtual amory envircswcnts . Use of the HrtO 
causes no Increase In aeaory access tl*e. in addition to 
dynes (c address traniiation. the nrtU associates four 
separate attributes with each 4K sega»rf\t of aeeoryi a 
wrlte-enable bit to protect shared text, a -valid" bit to 
flag segments containing valid data, a "dirty" bit to flag 
segments that have been modified, and an "access" bit to 
Indicate that a segment has been used. The standard nWU 
configuration supports 4 Megabytes of virtual armory with 
up to 16 separata eegvent maps, other configurations can 
allow up to e Mbytes of virtual memory, or up to 64 
separate maps. 

An optional floating-point coprocessor (riC6B861 ) that 
directly extends the architecture and the Instruction set 
of the processor to include floating-point data types, full 
support for IEEE Rev 10.0 hlQh level aath functions, and 
also transcendental and other standard aath functions. All 
coprocessor calculet Ions are performed to 60 bits of 
precision, 

Six levels of prioritized autovecror Interrupts froa seven 
sources. Two Interrupt sources ara Internal to the board, 
three are from the bus, and two (iton-neakable) ere froa 
sources connected directly to the ePU beard. 

Three separate hardware prioritised channels for external 

DMA devices. Slirul taneous DKA requests on different 

channels are arbitrated by the board on a channel priority 
basis . 

A 20-blt external address bus for up to 1 Megabyte of 
physical neaory space <RAn and I/O). The I/O devices 
occupy the tapper 4K bytes of the 1 Mbyte address space. 
Two separate areas are defined within the I/O space, each 
with optimum timing for particular 1/0 devices. (Notei The 
I/O timing will not support any 6600/6609 peripheral 
devices such as the 6650 or 6621. Serial and parallel I/O 
is supported only through Gimx Intelligent I/O 
processors. ) 

TWo O^non sockets that accevt BK. 16K. 32K. or 64K X 6-blt 
industry standard devices for up to 126K bytes of on-boerd 
firmware. The CPROA* are addressed above the 1 Mbyte RAM 
space, with auto-aopping of the restart vectors to low 
memory on power-up or reset - 

A full-featured hardware tlme-of-day clock/ calendar with 
battery backup, which con also generate interrupts at one 
second Intervale. 

A separate "tick" generator that cart generate interrupts 
at precise, Sua per selectable intervals ranging froa 10 
microseconds to 20 alnutes. Interrupts froa the "t lex- 
generator can be enabled or disabled under program control. 
and have their own priority level to alnlalze overhead 
during context switching. 

A separate voltage regulator board that powers the board 

and provides standby battery power for the TOD clock. The 

regulator board receives Its input from the standard power 
supply In the GIHIX svalnfronie. 



66 Micro Journal, 

5900 Cassandra Smith Rd . 
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Dear Don, 



JMlCJ^QNieS 

^^^ ,p,tb. Miliar 



"»..* *-*- V>.t»*l*»>»" 



Earlier Chi* month I typed in Ben Slaghekke'a DO 
utility, published is tbe January issue of 68MJ, which 
performed exactly •■ described. After playing with it 
a while, however. I diacovered that DO would requeat 
keyboard inpnt only if it found itaelf lacking a 
parameter, and then only if the following line 
contained ■ conand (such as .CAT), which scant that 
auch a KBD call had to be the final call in tbe 
coraana-f ile , and bad to be followed by a CKD call, 
whether I needed it or not, otberwiae DO would not 
exit gracefully. Alao, not all aiaple keyboard- 
reaponaea, auch a* Y or N, are neceaaarily followed by 
a CH, and DO did not ALWAYS handle thia aituation 
correctly. 



pi, p2, KBD, KBD, p3 , 
ample (where pi, etc., 
ate* a KBD reapoose) , 
ce with a non-required 
to function correctly, 
a quite aiaple, though 
ealiae that 1 had to 
d reaponaea (usually 

CR and those which do 
backtlaah to ayaboliae 
aay (elect a different 



Sometimes I needed the aequence 
fit, .CMD, KBD, p5, KBD for ex 
are parameter*, and KBD indie 
vitnout having to end tbe aequen 
.CKD in order for tbe final XBD 
Tbe patch to accoapliah thia i 
it took me quite a while to r 
di*tiogui*h between keybocr 
atring*) which require a final 
not. I cboae tbe tilde and the 
these KBD responses , though you 
set of literals, of course. 

Here sre tbe changes required : 



1. Add to the CUSTOMIZABLE CONSTANTS : 
KBDONE EqO '" Single-char from KBD 

KBDSTB EQO '\ String response froa KBD < laat cbar-CB) 

2. Repace PARAHI through FARAH2 with the following : 
PARAMl PSBS B (* delete the line LDB LSTCHSt-BASE ,u) 

TST PLDSFLC-BASE.U 

BNE PARAH2 

BSR ECHO 

TST LITERA-BASE.D 

BNE PA&AM3 

CHPA 'KBDONE Single KBD char? 

BEQ PA8AM2 Yea 

CHPA 'KBDSTR String input from KBD? 

BNE PA&AM3 No 
PAStAMl INC PLUSFLC-BASE.C Set KBD Flag 
PABAHZ LBS* KBD1N 

CHPA *CB 

BNE PASAK3 

CLS PLUSFLC-EASE.U Reset KBD Flag 

JSB POTCBJt 

Now ay command-file for tbe GIHIX F0BMAT.CMD conaiats 
of «F0RKAT 

Y5DDA0 

S2UY- 

where tbe backalaabea allow me to enter the Disk'* 
Volume-Name and Volume-Number respectively and tbe 
tilde givea me ay final chance to ABORT or not. 

I auapect that tbe initial PSBS B and the final POLS B 
are unneceaaary now that the LDB line ia deleted, but 
1 did not have time to check thia out. 

Your MAY iaaue waa great ... cauaing me to write to at 
least 3 of your correspondents. Keep it up t 



j5jmlvnn avenue. 
abbotsford. 
british cuumbia. 
Canada. v:sie; 

1604) 139.700} 



Sincerely, 

Ajl 

R. Jooes 
President 
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I •■ writing on an airplane after reading your June 
editorial and If I don'c put ay thoughta down now, they 
will aurely be loat. I have read the Journal for aeveral 
yeare and appreciate your candor In the review of 
products which nay adveraely Influence their advertlalng 
poature. I eupport theae producta and have never been 
dlsappoloted with their performance. 

I work for a firm which euppllea lnduatrlal automation 
equipment to the eemlcooductor lnduatry. Theae ere 
■otloo control eyeteme, employing pattern recognition 
techniques, that attach Interconnecting wires (ultra 
eoolcally) between the chip and header. We are a heavy 
ueer of 68xxx componenta. Host of our work In the peat 
hae been baaed on applications of the 6809 as a 
controller. Our naw product development activities have 
puehed ua Into more activity with the 68000. This 
entailed tha evaluation of bua atructurea and available 
68000 baaed hardware. We finally aettled on a VHB hus 
structure, a Porce CPU, and a PDOS operating ayetea. 
During thla eserdss I wee espoead to a plethora of board 
producta and attendant aalea pltcbea. 

Now to tba point. VME bua hardware baa been high 
priced, but It would apj>«ar that thla altuatlon la rapidly 
changing, ana la competitive with current Journal 
advertlaera. I think, coverage of the VHE bua and these 
products would be of reader lntereat and lead to aome 
advertlalng from folk! like Porce, Mlzer, Ironlce, etc. 
Alao there la eoftware eupport form Hlcroware and Eyrlng 
Research. The VHE Uaar Group publicity committee might 
eupply article material. 

My mind 1* boggled by operating eyeteme! Having to 
Juggle half a dozen can be very confuelog. However, I 
think an article on PDOS would be Interesting. I know In 
my application (real claw aultl taaklng) lta a winner. 

A comment I have a*an from time to time lo your letter 
publications la a plea for more hardware artlclea. 1 
think the raaaon you don't get them la the lack of full 
page schematic support. 1 know Several times I have had 
circuits wblch wnuld be of lntereet, but tha format puts 
me off. TM.B could be more lmportaot than a fancy cover) 

In conclusion, don't let the Journal fade. It would 
leave a big bole. 



Sincerely, 



Chuck Sublet t 

175 S. Loa Meaqultee 
Orange, CA 92669 



%4'6 Iota: Cbuck, thanks for tba prompt reply. Seems 
like the June rambllnga grabbed a lot of folks. I have 
never received ae much reaponee to any one editorial aa 
that one, Aa for the VHE bue and other related 
subjects, well, actually I Juet have not received much. 
How about It? Aleo t do not hear much lntereet, from our 
readers, concerning the VHE or VERSABUS. Like you aay It 
le typically Hotorola priced - high. However, aa interest 
grows (and Motorola prlcee decline to a reaeonable level} 
we will cover more of each. Intel bee had a much better 
pricing and support system. Heck, when we started with 
Motorola devlcee, Intel waen't even around, wonder what 
happened? 

Aleo aa to full page schematics, we can spread them 
over two pagee, If oeceeaary. We have probleme with 
eomethlog like a high denalty or K size drawing, but if 
we get it in reasonable sire, no eweet. Also you should 
eea eome of the really floe atuff that has come In here 
thst we were unsble to uee becauee It wae produced with 
everything from euckle atlck to crayooe. We DO tor 
redraw dlagrama, that la any that entail probably more 
than three or four devlcee. If It la neatly dona 
(raeaonably so) and dark eoough to reproduce 
photographically, then no problem, I don't care if it la 
printed on an old bed aheet or toilet paper. So, If yoo 
have something our readere might be lntereeted lit, fUASel 
eend It on! Juet try to bear In mlod the elze of our 
page, wblch La oormal magazine alze. 



Don, 

I tried to check in to the 68XX net on 75 
meters on 5/8/85. I heard about 10 
stations, but I don't know if anyone heard 
me . 1 havn't heard anyone on Wednesday 
since. 1 have an original SWTPC 6800 
running FLEX. I am interested in RTTY, 
Packet Radio and CW, but have nothing 
running now. My station is completely 
homebrew and would be very interested in 
RTTY programs. I will continue to listen 
around 3870 KHZ on Weds evenings. 



73 



Stan Houk AA3P 
2343 Peach Tree Lane 
Dyer, IN 46311 



Editor's Note: Thanks Stan for the note 
above. Well, I was having a thunder and 
lightening storm right about the time I 
started calling. My static was steady 10-15 
db over S9 and peaking up to 30 over. I 
could hardly hear anyone. I could hear some 
in there calling, but I couldn't get much 
better than a 2 to 3 copy. 

Since then I have listened but the 
summer time conditions are here and I think 
7 5 meters is about done for me until this 
fall. However, I have gotting notes and 
calls from others who are able to get 
together there (about 38 7 KHZ) each 
Wednesday. Some call there and then move 
off to QSO. 

I will continue to listen but if not 
better than last few weeks, I will wait till 
fall to continue. However, you might 
continue to listen and let me know how 
things are progressing. I hope that once 
started, it will continue and group up 
according to interest. But anyway it goes 
will be fine, as long as those who desire 
can make it. 

Best I can figure there were about 30 
to 40 trying to get in but conditions that 
evening were of the worse type. The time of 
day wasn't too good either. Due to daylight 
saving time, it was still light here in 
Tennesse and as you go towards the west, it 
was lighter and worse (short skip). So let 
ate know what you folks want to do and I will 
cooperate. Send in your comments and I will 
tiy to put something here as needed. 

However, lets not give up. For those 
that can make it - KEEP IT UP. By fall you 
should have a good foundation established. 
If not sooner, see you then. 



DMW 
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Dear Sroup: 

This is a letter o( r rt owtendat i on {or one ol your 
Advertisers. FEfclcHERAt. TECH«0l06> has been an 

idvtrtntr tor i long tiae in the JOURKdL and 1 
decided several aonths 190 to oet nd o« the old 
4B09 bo. . ] want vou kr.r-w that this required a 
great deal o( soul searching to Out in old friend 
away. I reeded aore root on the desk, so away it 

went 1 t still (once in awhile) bring it out to 
transfer soae software that 1 decide to use again. 

I bought two f-bf svsteas. one (or OS-9 and the other 
(or FLEi. Joth systeat rave operated (roa scratch 
without a hitch. The people who are just nc« getting 
around to the tBnlrl world Jvst don t know what that 
atssed by aorlu) with the old SSSO ' I 1 

svsteas. That renn is not to cast any disparaging 
rnirn on current svsteas. The ne« systeas trt 

(intastic coapared to old ones o( 1975-1978 era. 1 

never saw a single trttea with a cover in place. We 
•ere always tinkering with something. 

Anyway, I have attached a aodificstion that your 

readers who own a P1-&9 aay be interested in. It is a 

charging resistor and diode (or battery backup on trie 
cloct i( one uses meads (or power. 



I have added a 796 ohe resi 
shown. Mith two meads (2.7 
current is about J." nillia* 
the power o(< to the svstee, 
about 170 sicr oaape' es . 
4.l9«.J»a MHZ clock crystal. 
toldl will result mac 
sicr oaaperes, I did try thre 
voltage or about a volts 
over 324 sicr oiaper es ' My 

meads (don t use the cr.a 
batteries) with the charging 
doesn t have to worry about 1 



] used two PANASONIC meads Ithev were 11.35 aail 
order (roa a hobby place) since they had solder tabs 
and were 500 HAM eel Is. 

] hope this idea will help soaeone else. 1 aa 
interested in starting at PT-69 users group and can do 
disks (or 15.00 each until we get bigger. Please 
■rite, don't call, as I tend to loose notes taken at 
the phone. Hy apologies to those that i have lost and 
if I owe you, jjst drop ae a line. 

The Dallas group has been reborn (it never really 
died, just dot lo» profile). Drop us a line i( you 
live in the area and trt interested in driving to 
iARlAHD. It's over an hour drive one way (or ac and t 
don't aiss a eeeting. 

Churl Adaas 
Thanks, 6o« 6809 

Denton. Ti 7o: f -3 
Chuck Adas* <BI7> 565-2et: iwjrl> 



Dear Don: 



10207 Gillette 
Lenexa Kn . 66215 
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I just finished the Hay issue of '68 
Micro. As usual I couldn't put it down and 
also as usual I had a bunch of other stuff I 
should have been doing; but I was struck by 
your "Ramblings and Such." I am in the middle 
of another article for '68 Micro and your 
comments really hit home. I had the strangest 
feeling you were talking to ME. I got my 
SWTPC 6800 in 1978. I don't know if that 
qualifies me as an "old timer" in this 
business or not, but I feel the sane way you 
do about our little "club". In this world of 
mass marketing the S50 and 68xxx fans all 
count. We are each responsible for the 
advancement of the group as a whole. Any one 
of us can either help or hinder. It is both 
wonderful and sad that an indivdual counts for 
so much. It hurts me to not see the old 
familiar AAA Chicago Computer ads in '68 Micro 
since last January. I retired the SWTPC to 
the hardware test bench last spring in favor 
of an AAA Electra and 0S9 ■ The combination is 
wonderful and I enjoyed the late night 
telephone calls and corespondance I had with 
Jerry Koppel while I tried to get all the 
pieces assembled. I may still have the only 
Elekt-a running 0S9 AND a Compute- Excellence 
Memory board. I feel vaguely uneasy about all 
the names that we heard and read about back 
then and now no longer do. Names like Percom , 
Midwest Scientific, and Ohio Scientific to 
mention just a few that had to finally give up 
and go find a bigger audience. I want to 
personally thank you and your loyal crew for 
sticking by us for the last seven-plus years 
and I want you to know I will do as much as I 
can to help you keep the show on the road. 
May the greatest of good fortune go with you. 

Regards , 



&J'£ & 



OE Groves 



Ed's note: Oral, It la folks and attitudes like yourself 
and thoughts expressed in your letter, chat keeps us 
going. 

The worst part about It is that those you Mentioned, 
with the exception of AAA Chicago (back with us), SWTPC, 
Compucer Excellence and Ohio Scientific, didn't make It, 
they didn't understand where the aarket wsa going, in ay 
opinion. Ohio Scientific scarted Baking the transition 
back In the days when ic could scill be done ac relatively 
■ ■all coat, aa coapared to todaya aarket entry level 
coat. They are still around, Percom and Midwest 
Scientific are gone, for all practical purposes. The rest 
you sent toned are alive and kicking! Tom suit understand 
the aarket aod act in tiael Vie still have an excellent 
aarket window to aell into. If we uae coaaon aenae and 
know what direction we are pointed. Poor aanavKeaent, 
and a lack of aarket analysis haa done aore to kill oft 
aoae our older vendors and asnufacturers than any other 
factors. It all led to smaller sales, less, then to alnus 
caah flow and then ZAP, they were gone) 

We, (l), have done aoae conaulting over the psat 5 
or 6 years. I have had an above average auccess rate ol 
calling the aarket. I feel that I aa cloaer to ay 
readers (who are sacra) than aost publishers and survey 
analyse. We work in nuaber that insure froa 1 Co 5 
percent accuracy. Soae of the largest corporations in 
the world have used ay aervlcea, and paid nice fat auaui 
for Information. You would be surprised at how much 
Information we developed on the CaCo market alone. Yet, 



at varloua tlaes I gav the aaae easentlsl Information to 
about any of our advertisers that asked, for free. Over 
911 of those who reacted accordingly have survived! Not 



that 1 aa really all that smart, it Is because I learn and 
llatcn to what TOO tell ae] It was your Input thst gsve 
us direction. THAT SIMPLE! 

When the day coaea that I think that I know more 
about you than you do yourself. That is the day ay 
eaployeea had better start looking for Jobs elsewhere! 
So 1 thank esch snd ev ryone of vou Tor the loyslty shown 
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us over the years, and look forward to aanyaore years, 
with your support, 

OHW 

F.S. Alio looking forward to the article mentioned in 
your letter. For that we all thank you and all those 
others who chare their experiences and 'irults of love 
and labor* with all the rest of us - THAMLS! 



IEENSHIRE 



leensftxtu 
MumdtRsad Wmna* 

Winomai hU/lK S023 7h* 
r«*. <771DOlSHWE 



t*tn nif 1984 



Caeputer Pub) lifting Center, 

68' Micro Journal, 

5900 Caiiandn Smith Sow, 

HlxJon. 

IN 37J42. 

U.S.*. 



Dear Sir. 

He tuve recently implemented an OS9/6a<X)0 VHE-Bus Syste*. using FORCE 
SY566K Boards. We have been using 059/6609 for sane line, and nave 
■any disc and ROM-based systems In the field. 

As we still need to product software for these 6309 systeas (sane under 
059, sone stand-alone), we require a relocatable 6809 cross-assembler, 
•ltd linker and conditional assembly vhlch will run under 059/68000. 

Do any of your readers know of such a product 1 

'Curs faithfully, 
LUHSHIR- UD. . 



S>L.\X. 

O.L.H. SMIT* " 

Senior Project (ngineer 

OS-9 SOFTWARE SOURCEBOOK 

Mlcroware has published the OS-9 
SOFTWARE SOURCEBOOK to provide OS-9 Users 
with a list of available Application 
Software. The list was compiled from 
lnfortnatlon supplied by suppliers, as well 
as from catalogs and advertisements. They 
point out that being listed In the SOURCE- 
BOOK In no way constitutes an endorsement 
of the product by Mlcroware, nor are they 
responsible for the accuracy of complete- 
ness of the Information or the performance, 
availability, or completeness of the 
programs listed. 

The 37 page SOURCEBOOK begins with 
some Info on the OS-9 Users Group (this 
page was blank In our book), the CompuServe 
OS-9 SIC, and the Unix Network USENET. It 
then breaks the approximately 75 Software 
Listings Into sections on Business and 
Productivity; Test Editors and Word 
Processors; Database Systems; Communica- 
tions Software; Assemblers, Cross- 
Assemblers, Simulators, and Translators; 
and Utility Programs. Each listing 
Includes the Application, the Supplier, 
Software Requirements, Hardware Require- 
ments, and a Description of the Software 
Product. A SOFTWARE SUPPLIER ADDRESS 
listing and SOFTWARE DISTRIBUTOR listing Is 
provided at the end of the SOURCEBOOK. 



A directory such as this Is hard to 
maintain In such a fluid Industry, and such 
things as errors and omissions, listings 
for products that are no longer available, 
etc., are bound to happen. The Publica- 
tion of the SOURCEBOOK should generate 
feedback from Suppliers and Users alike 
that will help make future revisions more 
accurate. In an effort to help In keeping 
everyone up-to-date in this area, if you 
will send us an Info copy of any correc- 
tions that you send to Mlcroware, we will 
publish the letter In the Bit Bucket 
section of 68' Micro Journal. 

Those corrections that are "Near to 
our Heart" Include; 

1. The 0-F File Transfer Utility listed on 
page 28 shows the Supplier to be Data- 
comp, not Southeast Media. That Is 
close enough to home that It would not 
cause any problems, but Datacoap Is not 
listed In the SOFTWARE SUPPLIER ADDRESS 
section of the SOURCEBOOK (but Southeast 
Media IS). 

2. The Southeast Media OS-9 Programs 
Baslc09 XRef and OS-9 VDlsk are not 
listed. 

3. Lloyd I/O has appointed Southeast Media 
as their sole Marketing Outlet, Including 
the establishment and support of Dealer, 
Distributor, and OEM Licensing Programs. 
Evidently, K-BASIC (which allows the easy 
transportation of a lot of FLEX-Based 
Software to OS-9, as well as providing a 
very flexible, Native Code BASIC Compiler 
for developing Application Software) was 
not available in time to make this Issue 
of the SOURCEBOOK. This also affects the 
listings for CRASMB, CRASMB 16.32, OSM, 
and DO In the SOURCEBOOK. 

In spite of the problems, I think any 
OS-9 User will find the OS-9 SOFTWARE 
SOURCEBOOK to be useful, and anticipate 
that further updates will be both more 
accurate and more complete as Software 
Suppliers realize the potential value of 
the SOURCEBOOK. 



Deal Don. 

I thought It alqht be ■ cjootf idea to p*aa aLonq to your 
riidin, ay thoughts and cotMnti o*> a SOpt* hard diak ayatew 
that I hava been uelno for eoftwere development . 

The, ayatea &a a 20 Meae-byte unit fro* PES1PHESW. TECBHOLCCT 
in Marietta Georgia. J ordarad thia unit with the 30 «**q capacity 
aarly in tht year whan thia ■!■• of driva ««« eaay to coae by. 1 
now underatand that It ia vary difficult to obtain thia driva 
becauae tha IAN lyitrtt are eoekina the* up. $ and 10 aw/*} aliea 
are anich store plentiful and can be obtained aaally f roe. PT . 

Aa for tha ay at a* itself. 1 can't say enough about it'a 
performance sn d tha roa*p» t",y • ■ owner, Fredrick Brown. 

J*t at hit the hardware deacrlption firatt The PT-49W raw* 
in • cm* that looka the ■*•* aa bltj bluea'a PC. It haa the iim 
style* ia 19 1/2 x 15 x 6 and haa a a lightly sloped front panel. 
My unit haa the hard disk in the left aide and two 40 track D$DO 
flopplea on the right, one over the other In the convantial 
wanner. There are two aerial porta on the back along with a 
centronica parallel port. All connectora are hlq/h quality DB-2Sa. 
The parallel port ia connected in auch a way that an IOC type of 
DH-25 connector can be preeaed on one end of the cable and a 
Centronica coaipatable ttX connector on the other. Thia &a>ea the 
connection very quick and aluplel Inside, the unit ie very 
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iepraaalve. A tfeitsrn Digital WD-1002 controller la uaod to 
interface to tha hard dlik, Tha parallel port buffer. cabling 
and all Interconnect Lone are neetly arranged and well placed. The 
only not Icabla difference that one eeea Croat the atendard PT-f>° 
board. la a plqqy-bacX daughter board uaed to Interface to the 
WD-1Q0*?. The pot-ar supply which usually tend* to b* ignored, tvsa 
net been Iqnored here! It ia a high quality 'switcher*. Thie 
•vppiy hat plenty of power for all of the drives and the CPU It 
appear* to be a well built unit. 

Aa for the operation of the unit and the aoflwar*: t get 
STAft-OOS with my ayeteat and I ** very lspreaaed with Peter 
Sterk'e fine DOS . The utilities •»*# It very comfortable to una. 
I Finally we have a DOS that la supported II The real genius in 
this ayate* la the dial; drlvera that. Fredrick haa written. They 
are absolutely tha heal 1 Be haa written thea ao Uvat they have 
"deacrlptora" Ln th**> which allow Biking of any combination of 
drive alxea and types. They err veiy efficient and feat. They 
even allow the ayate* to be booted froa> the hard dtak and 
then, ualnq tha GfcT coswAand to qat the descriptor, you can change 
to the floppy as drive ON Till FLY I I I Those drivers are 
available for STAR-DOS when purchased vtth the ayates) or can be 
purchased aeperately if you ace using Vl£X . 0S9 can alao be 
purchased for the syste*. 

Without question. this la not only the beat, ayai.csi on ttie 
vtarketr but it la the beat value for dollar that 1 have found. My 
hat Is off to Pr-HIPHUBAL TECIINOLOCV . 

Jim Gtrvitj 

cadsle vAh^*Ei 



Sd's Note: _ 

tit at 4:00 or ao 



Well Marc. 



I knew I would do It, Just had Co, 
sorry It was you. I reaesber 



Scodfci 

y 




fujrc I. L**»«y< m.O. 

S J*^nj- Lev** 

Pihesvills* ruryiand 

21208 

Play *t i "''■ 



Did yt>u saw the April. IVfi, i •.«***> gf ih» fw s n n 

•n tdttorill entitled "SMtPCi AnotW Peg* for fhe Mlsti 

P v«tlf the UMw i«-Oif< o« th- seg*}fi**>. Qiwes * iwi 

t*et<urate* view of tK- Malory ot the ~~ 



Don Us 1 1 base* Br, 

Publisher 

(«f* mere Journal 

9900 (UiMndn *taiit>> Road 

Nnsx. tH jrytj 



1 k*v# not had oc<atlOn to mrite you tor mm tie*. I believe tine* your 
heart euraery. I do base, both '*<■» * protftetanal end personal point of vliVr 
that it w««it uvlli and that you are once again cK»ox)i*a. aiorg witfWJUt proftlee*. 

rills letter kind o« SUMietf up to the Surface after 1 received the Jure 
lieue of the Jour tat. It hem a few rende* thowaht >f **! t hope you er»j a y thee. 

On peg* 13 i« 
la H, GtSh 

He osi te a f*u 

little thine,*., Lite SEES, and you* eager ine. arwj takes the spate* south) like It 
DIM before the invention Of the Slateenth bfl. <Vw-a*. it aitn for «OSe novel 
reading, and 1 thought you sieM "enjoy" it. If you haven't seen ;l. let m» 
hrfOs and 1 will photocopy it and send it dour, thete. 

Spesn**? of abberatien*. the p*g» raj*©** i rvg in ey i***j> rv»*S fro* or*e 
through iMItwi then 25 through 40, the*. 17 through 2*. then 41 through the 
•ndi at peg* *>*). II you had intended the June Issue to be an Mventu'e qaaa. it 
would have teen nil* la >|fn lit. 

Epeartne ol raablincjii. la you* editorial r of the mm nu.. in thl* iimd 
you r en down a list el early feOOO authors. 1 was. shall we say. take** aback, to 
See "Dr. Levy- after the wall hnpun ruar* of Pete Stark and hUkeV ' frouson. Is 
that ** 1 orsnt that It ia spelled eror>Q> out I don't riPht you to carry 

around the correct <acrewy> soelllno, of ay naaa in your head. If it's not se ■ 
thenks for the tharie* anywey. I did publish in those days* usually in 73 and 
X 1 1 sbeud /h i c r oc oapu ( I ng . 

t OUeit the only reason that yOU have not had anything aubaltted froa> aa 
lateTy IS that I a* ttlM plJ>l«s uith the obsolete EiJOO running undar the 
poor i r suppo* led B8S 008. T*ou6 1 • isr 1 run a eedUal ollitr finance pac kag* t n 
that systee. which It does Quite well, so I have little reason to change. Aany 
of the utilities I write, with as laodvej transfers, or buffer leralnaili or 
Sorts. or the like, are for that ayetevi which ju«t is not uithlh tha interest 
reaiv of sost of your reader*. I have been bitten by the CoCd bug. however* end 
a* soon as I get e tad sor • cos for table *ey uel I sand sopathing youe way on 
that. 1 actually did write susathing already* rcattines to trenvfar the 
educational procjrue* put Out by the OtlldVen's Cosputer UotkShxo, and serketed 
by Tandy, an kfi«k. Tou aa*. these Pratrun, «uch as £rnie*s haqi* 9wa**« , and 
Othert, rose en t*Pe. and are wrUlan «o that they cannot be directly put onto a 
disk sysiee. After ey »idi get tired ef -aitlng roe the tape to toad. I spent 
mm tisa and Convirted the*. Even thCSjgh relieve* S at DOth Hot CoCd and 
Rainbow ens— n tad in their review that the a* jo* prebiew with these progress la 
that they do not iwm, «r could not be transferred te, diss, bath of tb+se 
sirjjf I nit ha«e rejected the article and listings on how to do it. It you're 

interested* ■ et ee know. 

Last thing. [ m tuvtinq two of tha 0SC Ml static BAtl boards m two £800 
«7Siaam. Did you know that they can be configured to bop around the 1Q0CO 1/0 
blocl. desuesfad by earlier 1000 eyateej** %» that one board can **r v«. as the whole 
eeao«/> would you be interested in an article on that* 



1 guess I've bent your ear. o» eye. erwsajh . Just had this accueulated pile 
of coaa n nts to **•«> your way. I would h« v e sent it on frr api ifw *- vr. but don't 
know if yon are there. I check, into the CoCd SIG every couple of days, if you 
-*ri to send teail. f as user code TSOQs.ZSOI. If you would Use this letter* 
or en edited version of it. for publication, let ee i.now. 1 will chop out uhat 
you lise and foroet it for the itlm/ coiuent. 



ny best te you and the gang in tenneSlbee, keep on (iroumo 
forget your roots* for without thaa, VOW cannot blossos* 



OUt h»v»r 




shaking ray head (even thought about sticking It under 
running cold water, but the hour wasn't right) and sr 



going to blow this", and I did, agalo 
I an certain that all your readera «vn 



to myself, "your " 

sorry] Hlowever, 

who I waa refarrlnj| to - I aure did. 

As to the articles, 1 hear store and acre of the same*, 
seeae that they are devoting leas and Leas tine to 
article procurement. Guess they have their bios CuLU or 
so ate thing . I snd thousands ot other would appreciate 
your input , we are a SmAaMAG group. And as to the 
hlatorv^. aea my letter** (edited) to then right after 
they published Stana hlatoryO) - never did hear back from 
Stan, oh well. 

As to the page numbers wandering all around, evetyooe 
around hare knows better than to do It any other way 
than I do. 
now and 

of aheeta at time, sometimes they do get jumbled. Could 
hsve told you It wsa put together the first of April 
(which It was), but what the heck, we may he goo but 
we're a till human. 

And aa to our roote, well arc, we know who held ut 
up on the way here. 1 deeply appreciate each and every 
one, for without that support and sharlog. you would not 
be reading this today. Ve didn't make tfiat biz s^LasV 
but we didn't alnk either, Klnda alee to think about and 
reraeraber. 



■ Viv n. ii w w » uc i i c i men vw u \j i i_ m itj uiiici mm J 

lo. Well, not exactly, actually It happens every 
then aa the folding machine la and fad bundles 



a 



March 20, 1985 



DMW 

Computer Shopper 

Accnt Mr. Scan Vclc, Edltor-ln-Chlcf 

Dear Scan, 

What a surprise Co read your recenc edlcorl*! and/or 
historical review of Che S-50 bus and SUTPC. U was nice 
Co know chac you are sclll around and kicking, aa we have 
noc heard fro. you for some yeara. Cueas I, like you, 
don't read all Che coapucer rag*. As I am cold you have 
been on your preaenc Job for quite soae else now. 
Anyway, lc was nice Co see your article. However, 1 feel 
that you were sorte alaleadlng, ln soae aspects. 

As you should know we, SSO bua aod 68XX(X are still 
7EftY such alive and actlvel Actually the thing ha* not 
gone "aalnly" to lnduatrlal and control computing? Pact 
are - for the user group we dlrecc our publications 
cowards che breakdown la aoaewhac as follows - aa of 
January 1985, our laceec audlc period. 

Doaeaclc (USA) - *7I of dlacrlbudon 

Overseaa (bl foreign countries) - S)t distribution 

As to S50 bus and 68XX(X) devices - well ln Europe 
and the Far Ease - where we have reps - Che o8XX(X) 
devices are elcher nuaber ONE or TWO. Only here ln Che 
USA, where everyone buc ua aeeaa Co have Che Big Blue 
syndroae. la t'nr 8XXX aerlea doalnanc. The entire 
lnduatry here la going stale waiting for BB (Big Blue) Co 
Bake Che nexC aove. Overseas noc ao. ThaC aeana Chac 
eventually chay, becauae of aore aggressive foreign 
developaent, not hsvlng to folio* s pre-deteralned CPU 
snd sofewsre protocol, will exceed whsc we hsve been 
doing here ln the USA. 



Jusc give che suco snd ocher asrkecs a thoughc, 
chac have lagged b« ' 
kepc on developing, 
ago, chac CM and Ford would have been so hsrd pressed by 



: lagged behind while che foreign manufsccurers 
kepc on developing. Mho would have thought, IS years 



those "silly, little Jsp snd Germany care', noc Co aeadon 
TV/redlo, caaera, etc. Already the 68000 is faat 
becoaltia the 'standard' deaplte what BB does with It or 
other CPU devices. 

When the shske-ouc coaee - chere will be soae of ue 
sround who were chere snd on che S-50 bus. Maybe you 
did never look back, buc eoae of ue Jusc kepc looking 
forwerd. Aa a reeulc, we ere che oldeet group of 
alcrocoapucer users lefc, snd SWTFC Is che oldest 
nlcrocoaputer asnufsccurer In ealacence. Fact la, look 
ln the current laaue of 68 Icro Journal and see thsc 
chey ere edit here, ss well ss CWLX, SSB snd many of che 
originals, or nearly ao. We are noc che largeat, buc we 
SUKTIVIH And chac Scan, ia che 'oaae of th* gaae*. I 
would auch racher have been small and aurvlved, Chan big 
and failed, right? 

Nice seeing you are atUl around, and hoping you Bight 
let your readers know that we still exist, all of ue 
moscly. 

Ae Co che hlscorlsns Ignoring the Den Meyers snd all 
che resc who were chere, sn aore laporcsncly, are STILL 
there, well lc le elwaya chac way. Eveiyone aeeaa Co 
wane Co cooc hla own whlacle, and Ignore the others 
ringing ln hie esrs. 

With best personsl regarde, 

Oon Ullllsma Sr. 
Publisher 

Wwp 
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OS-9 SUPPORT FOR FD-2 



NEWI 




NEW! 



Run double density on any S-50 6800 or 6809 computer Who al e can 
oiler Hils capability at these low prices? The FO-2 features 

Control ol up to four 5'*" OS/DO Drives 

SS-30 or SS-30C compatible 

Use Flex. OS-9. or Star Dos operating systems 

2 MHZ operation with no "slow I/O" required 

Compatible with BWTPC DC! DC2. DC3. or DC4 controllers 



FD-2 

DRV -68 
ORV-69 
ORV-09 
STAR-DOS 



Assembled/Tested ontroller Card $149 95 

6800 double density drivers • format program s 1995 

6809 double density drivers • format program S 29 95 

FD-2 Olsk Drivers lor OS 9 (Source) $100 00 

For SWTPC A FO-2 S 75 00 



PERIPHERAL TECHNOLOGY 

1480 Terrell Mill Rd . Suite 870 
Marietta. Georgia 30067 

VISA/MASTERCARD/CHECK/COD 404/973-0042 

•OS-e •• » i fdemm 01 Uicrowsi* and Uotomu Telen HIIMH 



SOFTWARE DEVELOPERS! 

YOUVE JUST DEEN GIVEN THE BEST REASON YET 
TO GET OUM GH0OO/UN1X* DEVELOPMENT SYSTEM 



THE VAHG8K* SEMES 




VK-&XV2D t|j»i pnreiui-Wni $9,000. 
tt>W udn Trnnl no). TO Mb hn rd d ink. 
51 2K HAM. H porta attd REGUU1S 4 



vx axwaoraoiuw | 

fj|jf «lriMiTirr 



v plu» -it Mb 



RESELLERS! 



r NtfiurtJtv* tpnkit* atr amllabte to quaJtfVrf rrnrtrVriv* 



ftattki Al^rJ hu brrn «W«i f yW oft. dr»«rtQp in* and namdavturtng 
cnlnvTMiputrrv brttctf on ihr Ko*ouk taunify <tf pnmsn for 
(he pa** «u )««» Tnc VrWWK )• it* nxm nrrn. «fcb ttotKuour 
(unity of mulls utrr canrsputt^rs- 



n^n a-|i i i 1 i» | t .J>ti»l^ 



4f#>**X uv <wn «M*4y «arr*pt raah ofCOU 



^*f ruMipmrt f*ii» tj a UmiU4 Mitt* <<J*» 
Off** «-«pcm Ju<Vjr, JtWi 



SnOKE SIGNAL 

w*=tTV*£ Yn±J<G£.CA9lM3 
IAISI muu / Tc*n frto-494 -wra 



45 COOX ROAD, 
HEWLAHOS. 
CAPE TOWN. 7700 
SOUTH AFRICA. 

14TH HAY 19*5 
DEAR DON. 

RB: LOG. CUD 68MJ MAY 85. 
PLEASE OISRBGARO HY LETTER DATED 1 3TH 
APRIL 198S. TWO BUGS HAVE COME TO HY 
ATTBNTION. THB VALIDITY OR THE FILESPEC 
IS NOT CHECKED. THIS CAN BE EASILY 
CORRBCTBO BY INSERTING "LBCS BAD' AFTER 
THB LINE "JSR GETFIL'. 

BOB JONBS OF CANADA HAS POINTBD OUT AN 
BRROR IN THB "LOGBNO' SECTION OF THE 
CODB. IF FHS DETECTS AN ERROR IT GOES TO 
-RPTERR- AND THBN BACK TO PLEX WITHOUT 
RESTORING THE VARIOUS VECTORS, HBHBNO. 
BTC. THB LINE 'JHP WARMS' FOLLOWING THE 
LINE 'JSR RPTERR' SHOULD BE DBLETED TO 
CORRECT THIS PROBLBH. 

RE: C0MHBNT5 ON DO.CHO 

ALL RBPBRENCBS TO THB Y REGISTER SHOULD 
HAVE READ U RBGISTER. ALSO SAVING THE U 
RBGISTER IS NOT SUFFICIENT. IT SHOULD 
POSSIBLY BE SAVBD IN A TEMPORARY 
LOCATION IN THB RELOCATED PORTION OF THE 
DO COMMAND. THE INPUT RBOJRECTION 
ROUTINB COULD THBN GET THE VALUE OF THE 
U RBGISTER IN AN ABSOLUTE FASHION. 
IE. STU UUUU SAVE U REGISTER 

JSR DOCHNO PROCBSS THIS FILE LINE 
LOU UUUU RESTORE U RBGISTER 



SVHENO RHB 2 SAVED HEHENO VALUE 
UUUU RHB 2 TEMP FOR U REGISTER 



PARAHI EQU • 
PSHS B 
LOU UUUU 



GBT U RBGISTER 



I KAVB POUND TWO OTHBR MINOR PROBLEMS. 
THB 00 COMMAND LIKB THB OLD LOG COMMAND 
DOES NOT CHECK TO SBB IP HEHEND HAS BEEN 
ALTERED BY ANOTHER UTILITY. THE 00 
COMMANO OOES NOT WORK IN THB PLEX 
STARTUP PILE. 

YOURS FAITHFULLY. 



t) 



i<^S>^ 



JOHN RITCHIE. 



Classified Advertising 



UUTYPT Nodel »3 PRINUR - with ser i 8 ] <RS2)2) 

interface, and full ASCII keyboard. LIKC NCw - New 

coat $1295.00 - ONLY $^9.00 ready to run - Call Tom - 
Larry • Bob, CPI 613 8*2-*600 

S/09 with Motorola 12BK RAM, 1-MPS2, 1-Parallel Part, 
ff-09 CPU Card $1990. I-C*tAr2 Dual 8" Drives with 
Controller $2190. 1-C05I 20 Meg Hard Disk System with 
Controller $2*00. 

1-S+ System with 256K RAM, 1-MPS*. 1-Psrallel Port. HPU 
Processor Board $2700. 1-QW1 10 Meg 5" Hard Disk ft B" 
Disk Drive with DNAF3 Controller Board $3600. 1-X12 
terminal 12" $1260. 1-Cabinet for S» System m/Filler 
Plate $300. 

2-B212 Terminals $*9S. 

Call lorn (615) B»2-»600 H~f 9 A.M. to 5 P.M. C.S.T. 
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INDUSTRIAL PASCAL 
FOR THE 68OOO 



If you're looking for a language to 
write real-time process control software, 
look no further. With the rising cost of 
labor, it is becoming critical that a high 
level language be used whenever possi- 
ble. Find out why over 1400 companies 
have switched to OmegaSoft Pascal for 
their demanding applications. 

OmegaSoft Pascal takes the Pascal 
framework and expands the basic data 
types, operators, functions, and memory 
allocation to fit the needs of real-time 
systems. These additions fit in the same 
structure as Pascal and enhance its use- 
fulness without impairing the excellent 
readability, ease of maintenance, and 
structured design. 

The compiler generates assembly lan- 
guage for assembly and link to run on 
the target system. Since a true relocat- 
ing assembler and linking loader is 
used, only those runtime modules re- 
quired are automatically linked in, pro- 
viding a smaller object module than 
other compilers. 

Large Pascal programs can be split up 
into conveniently sized modules to 
speed the development process. Proce- 
dures, functions, and variables can be 
referenced between Pascal modules and 
assembly language modules by using 
Pascal directives. 

The compiler package includes an in- 
teractive, symbolic debugger. The de- 



T.M. OmegaSoft | S a trademark ol Certified Soltware Corpor- 
ation. OS- 9/68000 Is a trademark or Microware. VERSAdos is 
a trademark ot Motorola. CP/M-88K Is a trademark ol ORI 
UNIX Is a trademark ot Bell Labs 



bugger allows setting of breakpoints, 
displaying and changing variables, and 
tracing statements. Debugging can also 
be done at the assembly language level 
when needed. The debugger allows very 
fast turnaround for programs to be run 
on the host system (target system de- 
bugger coming soon). 

The compiler package also includes a 
full relocatable macro assembler and 
linking loader. These are designed to 
support the compiler but may also be us- 
ed for general assembly language devel- 
opment. In addition, a full screen editor 
is included which can be used with a va- 
riety of intelligent terminals. 

Full source code is included for the 
runtime library, the debugger, the screen 
editor, and other support utilities. 

Versions to run under the OS-9/68000 
and VERSAdos operating systems are 
currently available to end-users and 
OEM's. End user price is $900 (domestic) 
or $925 (international). A version for 
CP/M-68K is available for OEM use, with 
OEM versions for UNIX type operating 
systems to follow. 

Similar products to run on a 6809 sys- 
tem and generate 6809 code are also 
available for most major 6809 operating 
systems. 



CERTIFIED SOFTWARE 
CORPORATION 

616 Camino Caballo. Nipomo. CA 93444 
Telephone: (805) 349-0202; Telex: 467013 
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CORPORATION 

6/7 W. Virginia SI. 
Milwaukee. H7 d.'J20-/ 
(4 t4tJ7H-29:i7 



c 

for the 

6S09 

ms NEVER 

BETTER! 

i INTROL-C/6809,Version1.5 

Introl's highly acclaimed 6809 C 
compilers and cross-compilers are now 
more powerful than ever! 

We've incorporated a totally new 6809 
Relocating Assembler, Linker and Loader. 
Initializer support has been added, leaving 
only bitfield-type structure members and 
doubles lacking from a 100% full K&R 
implementation. The Runtime Library has 
been expanded and the Library Manager is 
even more versatile and convenient to use. 
Best of all, compiled code is just as 
compact and fast-executing as ever - and 
even a bit more so! A compatible macro 
assembler, as well as source for the full 
Runtime Library, are available as extra-cost 
options. 

Resident compilers are available under 
Uniflex, Flex and OS9. 
Cross-compilers are available for PDP- 
11/UNIX and IBM PC/PC DOS hosts. 

Trademarks: 

Introl-C. Introl Corporation 

Flex and Uniflex. Technical Systems Consultants 

OS9, Microware Systems 

PDP-11. Digital Equipment Corp. 

UNIX, Bell Laboratories 

IBM PC, International Business Machines 

For further information, please call or write. 
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COMPILER EVALUATION SERVICES 
By: Eon Anderson 

The S.E. MEDIA Division of Computer 

Pabllshlbg Inc., 

Is offering the following SUBSCRIBER 

SERVICE: 

OGWILU QOKFUaSOW ID ETALOinOI WOtT 

Due Co the constant and rapid updating and 
enhancement of numerous compilers! and che 
different utility, appeal, speed, level of 
communication, memory usage, etc., of different 
compilers, Che following services are now being 
offered with periodic updates. 

This service, with updates, will eJlow you who are 
wary or confused by Che various c La las of compiler 
vendors, an opportunity to review comparisons, 
comments, benchmarks, etc., concerning the many 
different compilers on the market, for Che 6609 
microcomputer. Thus Che savings could far offset 
Che small coat of this service. 

Many have purcbaaed compilers and then discovered 
that Che particular compiler purchased either Is 
not Che most efficient for their purposes or does 
not contain features neceasary for their 
application. Thus Che added expense of 
purchasing addiclonal compilerCs} or noc being 
able Co fully utilize Che advantages of high level 
language compilers becomea too expensive. 

The following COMPILERS are reviewed initially, 
more will be reviewed, compared and benchmarked 
aa they become available Co Che author: 



PASCAL 



GSPL WHIMSICAL PL/9 



Initial Subscription - $ 39.95 

(includes 1 year updates) 
Updates for 1 year - $ 14.50 

S.E. MEDIA - C.P.I. 

5900 Cassandra Salth Rd . 

Hlxson, Tn. 37343 

(615) 842-4601 



OS-9™ SOFTWARE 

SOISK— Standard disk driver module allows Ihe 
use of 35, 40, or 80 track double sided drives with 
COCO OS-9 plus you can read/write/format the 
OS-9 foimats used by other OS-9 systems. $29.95 

SDISK + BOOTFIX— As above plus boot directly 
from a double sided diskette $35.95 

FILTER KIT #1— Eleven OS-9 utilities for "wild 
card" directory lists, copies, moves, deletes, 
sorts, etc. Now includes disk sector edit utility 
also. $29.95 ($31.95) 

FILTER KIT #2— Macgen command macro 
generator builds new commands by combining 
old ones with parameter substitution, 10 other 
utilities. $29.95 ($31.95) 

HACKER'S KIT #1 — Disassembler and related 
utilities allow disassembly from memory, file. 
$24.95 ($26.95) 

PCXFER UTILITIES —Utilities to read/write and 
format MS-DOS'" diskettes on CoCo under 
OS-9. Also transfer files between RS disk basic 
and OS-9 (requires sdisk). $45.00 

BOLD prices are CoCo OS-9 format disk, other for- 
mats (in parenthesis) specify format and OS-9 level. 
All orders prepaid or COO, VISA and MasterCard 
accepted. Arid $1.50 S&H on prepaid, COO actual 
charges added. 

SS-50C 
1 MEGABYTE RAM BOARD 

Full megabyte of ram with disableoptions to suit any 
SS-50 6809 system. High reliability, can replace static 
ram for a fraction of the cost, $895 for 2 Mhzor$995 
for 2.25 Mhz board assembled, tested and fully popu- 
lated. (Add $6 shipping and insurance, quantity dis- 
counts available.) 

D.P. Johnson, 7655 S.W. Cedarcrest St. 
Portland, O R 97223 (503) 244-81 52 

(For best service call between 9-11 AM Pacific Time.) 

OS-9 Is » tradernaifc of Mlcroware end Motorola Inc. 
MS-DOS Is a trademark •! Microsoft Inc. 



New From ELEKTRA ■ 

'Modern nyltd cibinttlor dull 51/4" Wtncflutir drive* or lour 
hill hiighl Hopples Sv @ Si. 12v @ Si (Bi ptlkt EMI IIHir. 
Ian 1250.00 

'DMA controllir tor Hull 5-1/4' Wlnchiitin ind dull S 1/4' 

lloppla nturdrlvu tolill 1695.00 

FLEX" or OS 9" drlvin 50.00 

Complili ElEKTM" product Mm In luck 

(Jpnridt your old lyilimt 

68008 l.illibli shortly lor Ihe SS-50 tmi 

With ELEKTRA". you hivi smmdibllily with quality 

Sollwin Irom Tichnlcil Sytlimt ConiiiHinli jnd Mlerowire 

Syilimi Corp. 

Wriia or phonr lor current pricing 

AAA Chicago Computer Center 

120 Crietlnul Lane — Wheeling, IL 60090 
(312) 459-0450 

Ttchnn.lt ConmUmllor ■ rill.ol. moil HUMn from i PI* Is S PM CST 



Bulletin Board Software 

Auto Amwar — Mill 

Ordwtiklitg — MiMininei Prognrai 

Used by large corporilioni tor inlimil corwpondtnc*'. 3-1/2 

yun In development by Pirli Radio Elictronlct. 

UnlFUX* venlon written In Eltondad Bttlc wlrJi aourtl S38ELO0 

0S-9" vinlon nrrlnai In BttlcOB" with aoutce 385.00 

OS 9" vanion tor Coco (Soedtl] lSiOO 

Other Communication 
Software 

0S-9" Super Modem Pragnm ty Epitiln Kuoclata JI0O0C 
Super Modem Program lor FlEX^ or SSB by AMCCC 75.00 

I LEI TU I: ■ IrMna k « «M OU« Capnr bar 
I UK III tnatiiurt el hcMal Ittmm CmnImi Ik. 
■MMtaMKairMumrtmel nititwri stow Ca% 

UrtfU) ll>rt|Un<inrfanrtdr«rAiBiltr>*ar>MeML He. 
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64K SS-50 STATIC RAM 



<<* 



$119 



00 

(48K KIT) 




*£ty, 



£A 



"Oft, 



BLANK PC BOARD 

WITH DOCUMENTATION 

$45 



SUPPORT ICs t CAPS - $18.00 
FULL SOCKET SET- $15.00 



ASSEMBLED AND TESTED ADD $50 

FEATURES: 

• Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 

• Fully supports Extended Addressing. 

• 64K draws only approximately 500 MA. 



S6K 
64K 



$129 
$139 



200 NS RAMs are standard. (TOSHIBA makes TMM 2016s as fast as 100 NS. 

YOUR HIGH SPEED APPLICATIONS.) 

Board is configured as 3-16K blocks and 8-2K blocks (within any 64K block) 

for maximum flexibility. 

2716 EPROMs may be installed anywhere on Board. 

Top 16K may be disabled in 2K blocks to avoid any I/O conflicts. 

One Board supports both RAM and EPROM. 

RAM supports 2MHZ operation at no extra charge! 

Board may be partially populated in 16K increments 

16K STATIC RAMS? 



FOR 



CLOSE OUT SPECIAL 
WE HAVE DROPPED OUR 32K SS-50 STATIC 
RAM BOARD WHICH USED 2114 LOW POWER 
RAMS. WE WILL SELL THE REMAINING 
STOCK OF BLANK PCB S WITH DATA FOR 
S17.S0 EA. THESE f ORMERLY SOLD FOR SSO. 



The new 2K x 8. 24 PIN. static RAMs are the next generation ot high density, high 
speed, low power, RAMs Pioneered by such companies as HITACHI and 
TOSHIBA, and soon to be second sourced by most major U S manufacturers, 
these ultra low power parts, feature 2716 compatible pin out Thus fully 
interchangeable ROM RAM boards are at last a reality, and you get BLINDING 
speed and LOW power thrown in for virtually nothing 



Digital Research Computers 

(OF TEXAS) 
P.O. BOX 461565 . GARLAND, TEXAS 75046 . (214)225-2309 



TERMS: Ado 5? 00 postage We pay balance Order under Sis add 75e 
handling No COO Woaccept Visa and Mast erC ha rge Tex Fles add5% 
Tax f on m g n or dc 5 ( e x cept C nna da t ad d 20't P & H O rde r s p ver £50 add 

B5C lor insurance 
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SOFTWARE FOR 680x SYSTEMS 



SUPER SLEUTH DtSASSE MBLERS 
EACH SS9-FLEX 110IOS.9 S100-UNIFLEX 
oajECT-Om.T v*mena;EACH tsofVE .OS^.COCO 
n m mM +,ammmieuixvia&*ir iHt* «>* »* f»n»-» taarxj 
apactfr oaorJ.i.S.J.5 6.r»es02 wioi or Zstyaoao.S mr 
OSS tnr<B|ra^(lU lorn* otsMeaunotfO&S 
COCO DOS avaiatH In MOO.lAlSS.MSH vncn Iran fflO/9080.S> or*, 

CROSS- ASSEMBLERS (TRUE ASSEMBLERS. NOT MACRO SE (5) 
EACH *S0-FLEX,OS/S,UNIFLEX ANY 3 $100 ALL $200 
lively to I00i SM2.0a0l.sao4 SatrS.o809.M »0e04».90S1 9085.0*000 
lrua,r*ajeU»T.naa-»u«»'^ ppw-whih mC. w<> aiaaAJtaal idatam 
S-tM {not 680001 touroa* fr«*«W wlhil cf«i uianMrt (Tor S200) 

OEBUOGNQ SMULATORS FOR POPULAR MICROPROCESSORS 
EACH S75-FLEX J100-OSI9 JB0-UNIFLEX 
OBJtCT-OWLV »W»*ont: EACH (SO-COCO FLEX COCO OS.* 
rtvactrrOf l»nlll« lw™i »• rekm Ou«»»ay formatting. b*ary edeng 

toadr Kx oaoo/t, (i«)oaca »sa2. saw os/». 2so f iex 

ASSEMBLER CODE TRANSLATORS FOR 6502. 68001 , 6809 

»5021o8809 US-FLEX WS019 SSB-UNIFLEX 

■BOOM » SUM 4 SUM » potraonMd 1S0-FIEX trs.OS/o IBO-UNIFLEX 

FULL-SCREEN XBASIC PROGRAMS xlth euraor eonvx* 
AVAILABLE FORFLE X.UNIFLEX, AND MSOOS 

OtSFVAVOENEFUTOfVOOCIMENTOfl ISO w*Hirta.«5 wltnoul 

UAKINGLISI SYSIIM ilOO * aourca. (SOU 

rjvt N 1 1 » I Y wi 1 1 1 Mil I ' 1 1 00 w'Murc*. 150 • 

lABtAARASASPREAOSICEl ST00»*iour»».S50wlB>oul 



DISK AND XBASIC UTILITY PROGRAM LIBRARY 
SS0FLEX J30UNIFLEXIMSDOS 
•da da*, moot. sort rirartary marun maw oufcj 00 Oak sorts. 
il WLI I L l u X of BASIC program M«8ASCp«owi>.«t 
nor> Fl£X«*narnr<*^ ton art rsassanv arty 

CMOOEW TCLE03MMLff«CAT10fJS PROGRAM 
J100-FLEX.OSV9.UNIFLEX 
OBJECT-ONLY MrtWM: EACH tSO-Fl.EX.OM 
fart/* MnweHanml mo* ■elarehr WOOEV7 XOiXOFF el 
«x CCCO and rxnCOCO. anas ragms COCOmnW [En 19 b 3*00 Bs 



HARDWARE & SERVICES 

S. 25" DISKETTES 
EACH 10-PACK S12.50-SSSO.SS DO. DSDD S20-DSOD 
•raoxra* BuaranaBi 100* ouaVy »an T»var, pcMtt. l\«o r«igs anStabatt 

SS-50C 256K 1.5MHz MEMORY BOARDS 
EACH BLANK $60 ASSEMBLED AND TESTED $350 
«0i wi tti i wut adaxnanca. and rMsy ant. >■ pant raarjrv avatjete 

ADOmONA L SERVICES FOR THE COMPUTMG COMMUMTY 
CUSTOM CEO PROGRAMMING 
»« we atnprani any of tie programi i-t— i til iSxsana™i*isjlorinour 

rrnrfTin *rr sptnaVm ojstDmar ustor b cow now procaiaorv Bit crwoa 
4w auo^ cuevr^zaaV oafanai upon tie r^xa^axabBty of tie rnDTjnraartXi 
CONTRACT PROGRAMMING 
wa wi oaatti or* prajmrm or inooTy natr*] programs on a corvee* Data. 
1 tamca art rm« dtovcm) lor on* taertr ran. txtrjotrioutjaf»OTwt«dv«ie 

have performed core ad progi ammmo rvtalm inoat nnnj^ar moOtlt of 
martramet. ncluftng IBM. Burrougnt, Urwac Honeywai. mon popular 
moots of rTmarnpuan murine DEC. SM. DO. r*f*. ATlt . ana moil 
popular taano* et » *j^» i t »/ 1 art. Iraaaang 8000/1 BeOS. 2*0, 6S02. 
69000. uarxj moM appr oprtet* languagBK art) oparatng tyaarra. on ipvatro 

tangtlg m tut Irom ttrOtnaa jwca&aro to anpte board OEveoaanr. 

fha charge tar core/an r/nrjamnanQ « usuatf by me hour or by the USA 
CONSULTING 
wa oiler a vrroa range of cuanou and aaftiaa* oonaur* ig imra^ inoKirJng 
tanxnarK.arJwKBLirairXnci. wxl daxlon. on any lope ralBtad to carripulanx 
Pw charja lor camtilmi) a nrxmaty t**w upon rjma. traval. and npm 



Computor Systoma Consultanla, Inc. 

14S4 Lalla Lane. Conyora. GA 30207 

Telephone 404-483-1717 or 4570 

We lake ordera a1 any time. Out please 
plan dlaeuaalona after 6, it possible. 

Contael us aboul catalog, dealer, discounts, and aervlces. 
Moat programs in source: give computer, OS, disk size. 
2S% oft multiple purchases ol same program on one order. 
VISA and MASTER CARD accepted; US funds only, please. 
Add GA aatea lax (it In GA) and 5% shipping. 

fUMIFXala WTacrrrajaanxarjiCrjaiaxrra.OaSwir.i aa cCOCOraiTrolr 



SOFTWARE. 
HARDCORE 



•• FORTH PROGRAMMING TOOLS Irom the 68XX8X " 
" FORTH specialists— gel Ihe best" " 

NOW AVAILABLE — A variety ol rom and disk FORTH systems to 
run on and or do TARGET COMPILATION lor 

6800. 6301 6801. 6809. 68000. 8080. Z80 

Wnle or call for inlormalHm on a special system to fit your require- 
ment 

Standard systems available lor these hardware — 

EPSON HX-20 rom syslem and target compiler 

6803 rom systems lor SS-50. EXORCISER. STD. ETC. 

COLOR COMPUTER 

6800 6809 FLEX or EXORCISER disk systems 

68000 rom based systems 

68000 CPM-68K disk systems. MODEL II 12 16 

1FORTH is a refined version of FORTH Interest Group standard 
FORTH, lasler than FIG-FORTH FORTH is both a compiler and 
an interpreter II executes orders ol magnitudes faster lhan inter- 
pretrve BASIC MORE IMPORTANT. CODE DEVELOPMENT 
AND TESTING is much, much lasler lhan complied languages 
such as PASCAL and C If Software DEVELOPMENT COSTS are 
an important concern for you. you need FORTH' 

lirmFORTH- Is lor Ihe programmer who needs to squeeze the 
mosl into roms It is a professional programmer's tool lor compact 
rommable code lor controller applications 

r ifORTX ano WnFORTM a. a tradarnarfcs o< Taboi Mcnxrynonn 

* FIE x it a tiaormt* ol Technical svstams ConxuKanu mc 

* CP m 68k it liaoamaik of Cfcgriai Reaet<cn tnc 



tFORTH°" 

from TALBOT MICROSYSTEMS 
NEW SYSTEMS FOR 
6301/6801, 6809, and 68000 

- ■ (FORTH SYSTEMS < — 

For all FLEX systems- GIMIX.SWTP.SSB. or EXORcisor Specify 
5 or 8 inch diskette, hardware type, and 6800 or 6809. 

" (FORTH — extended lig FORTH (1 disk) $100 (S15) 

with lig line editor. 
" (FORTH + — more' (3 5" or 2 6" disks) $250 (S25) 

adds screen editor, assembler, extended date types, utitilies. 

fames, and debugging aids 
RS-80 COLOR FORTH— available Irom The Micro Works 
" firm FORTH— 6809 only $350 ($t0) 

For large! compilations to rommable code. 
Automatically deletes unused code. Includes HOST system 
source and target nucleus source No royalty on targets Re- 

? uires bul does not include IFORTH + . 
ORTH PROGRAMMING AIDS — elaborate decompilers! 50 

" tFORTH lor HX-20, m 16K rams lor expansion unit or replace 
BASIC $170 

" tFORTH 68K lor CP M-68K 8 disk syslem S290 

Makes Model 16 a super soltware development system 

" Nautilus Systems Cross Compiler 

— Requires tFORTH + HOST + at least one TARGET 

— HOST system code (6809 or 68000) $200 

— TARGET source code. 6800- $200. 6301 6801— $200 
same plus HX-20 extensions— $300 

6809— $300. 8080 Z80-S200. 68000— $350 

Manuals available separately — price in ( ) 
Add $6 system lor shipping, $15 lor loreign an 



TALBOT MICROSYSTEMS 1927 Curtis Ave., Redondo Beach, CA 90278 (213) 376 9941 
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WINDRUSH MICRO SYSTEMS 



UPROM II 

mwws «4 verifks; lV» t 

TrtOB. I .frit, T«16, 1Z7S2/27.U*, 
PJUaiiJ 76*/6, I ZltAfZJtAM , MM , 
177128/271?**,, and l?7ft«. 

lalntal, TMatai* JMbatOrBla. 

H& ntMK*4.tTT HQ»ULti *t*UHtif 

TH-VW.T t*#QW3 JJE WOT j, ljr>l*0b T | p 

lNTEL 4 i Intaligml programing 
(ta> taptaaantad for Intal 

27.*, 27128 and 27259 Mvlco. 
.ittlllgant programing rtducai 
lha avtragi programing Ho* of • 
27*4 fro* 7 olnutaa to 1 a Inula 
IS lacondi (undar FLEJO Mi(k 
grtatly i"Provtd ratability. 

full- 1 anclond nod «tth 5' of 
f.at ribbon cab La for conna>ct>on 
10 tha hoit co«u(ir MCta.l PlA 
Inttr foci booi-d. 

NC6609 lOtlHH for FLEX and 0S9 
Clival 1 or 2, Van ion 1.2). 

eiMHf (MS* IILE of'iat loadtr 
lUpplltd with Flit, N00& «nd 0&9. 

Hanu. Hr i»m lotfuora pfg.uhl in* following faf Hit 1*11 

o. 'ILL • ittaetod trai of tru buflar -1 in ■ HEX char. 

0. PWE blocta of oatt. 

c. SUP* tha twllir In Mil and AMU. 

d. rt«0 • tiring of bytaa In th# bulfar. 

a. iKAJHHI/CHMfCE . (ho conltntt oF th* buffer. 

f. C1C chacktu* a aalacctd trta of tM bulltr. 

1. COFt ........... a tatactad arta oF jn (Men Into (do buffar. 

h, vtlt'T a tfUtiM araa of an wm *s»^ntt th* buffer. 

I. pVCWif* ........ a ittKlid araa of an E.MMN will, data in tb* buftar. 

). SELECT a n>« (MO* eve* Crnurfi to Osnt «*nw1. 

a. IdTtR ., «*• tyitt* nof-ito*. 

I MfUb* to th* OP* rating arataa. 

t. E U CUT I ........ W FMS utility (only In FLfH and 059 v*ril0nl>, 

Hti a— wt «miom wmmiE fbow num. sm/pjpos com tact lbj phut. 




PL/9 



• frlandly Inttr-actlv* anvtrortoaftt iih*r* you is*** itUTWT accatt to th* 
Cdltor, th* Co««Hir, and lha Tr*c*-t>*ouoaa r , which, aaungtt oth*r 
IM>*9i, car, aing-l* it« tM propria a SQUPCf lint at ■ Hat. You alto 
haw* dlrati accatt to any flEi utility an« your lyitt* aonltor. 

• HI* p*o# aanoal ort«n1i*d 41 4 tutorial with cttnty of tiaacltfa 

• Fatl lltnHE PAW cOdptUr product! BK of COMPACT and FAIT M09 aachln* 
coda output ear *1nut* *tlh no run-tlai pvtrhaidt or Hnnu laat. 

• FuUr eoapatibl* tflth TSC tftl aflllor forHt dlU fllrl. 

• lign** end writ ion** IfTff and l«U«i5, J2-t>1t Hotting point i(*n. 

• Vaclors <air«gi« dlatnalon array!) and polnttra «ra twoporcacl. 

• NathiKitHal a*prat*4onkt t«J, (-), («), (/>, *c«<Ui (\), nt gat lor. <-> 

• EiPraaalon avaluaton; (■), (<>J, (<), t>), (>■), (<•> 

• lit Wacom (JtU), <0H, (EOl/IOB), <N07>, (SHIFT], tSUP) 

• Logical oc>ara1ora: (.INO), (.01), t.COR/lOt) 

• Control tiatMtnt«: ir..THEN..(I.S(, IF..CASC1 ..CASC2..ELS£< CM61H..MU, 
MN[t.t.., HPIlf. .UNTIL, ■EPC4l..fO a, KVIX J CALL, iW» t KETlAtN^ EtttAK^ GOTO. 

• Plracl accata to (ACCA), tUCEO, tACC»), «IH), (CCA) arxJ (STACK). 

• FU.LT aupporta tha KMOT MSET, N*(, Ft»4, in, SHJ, 5MI2, Md IwlS 
«Klora. brltino • »#lf-i:art 1«g (fro* oowar-up) ptfOrM IKat utat ART, 
or ALL, 01 lha *K6M« fntarr\»M la an abtolutt tfUCl 

• auetiin* coda «ay t» 8>dP*dd»d In tha drograo via th* •*£*• utt um t. Th1a 
•maoivi yew to coda critical routlnaa in aaaanbly IdnguAQ* w^ w^*4 thta 
1n iha PL/9 ptoo/aai fta* *N«|» for dilillt). 



FV*ttdu*aa ddr frt patitd *nd 

funcflona *itch bahav* at thOM 



«r ratwrn trarlaOlffl. Tti If •***! 
;h»jr fl ar« an tntagrot part of Pl/9. 



• Sartrat fully dMidMnta4 llbra/y «roc«dur« oodglaa »r» twBOLIad: lOflESS, 
llttO, HAlblO, HlKlO^ fLEIIO^ SCIfACK, STKSiBS, lASTtlHC, and (tCALCM. 

'... IwJi 13 TK HOST EFlKlElfT (0HPIL1B I HA« fOUt tp 0*'E.' 

•uotad fro* KM «ndar««nl ILEl Lhm MPlat «o(van in 'M. thr«d *• a*y oor»1 



MACE/XMACE/ASM05 

Alt ol t**M Oroduc ta faatura a hlftfcly prodbctlw an»H ip—n t «Ktra tb« 
adltor and lb* innblir roalov In aw«ory toaotKar. ion* ara tha daya «f 
ttdlui dlah load «nd >a«a op* rat lent «fc1lt you ara datwnincj your coda. 

• Frlandty tnlar-actlva at>* t ' onaan t «f#r» yow **vt Inttant accttt to 1 %* 
EdUO» and tha Aat*obt*r, FUi vtUltlaa ana ydur ayata* oenitor. 

• naCC can also product ASMPflOXa (CU atata«tnti> for nje •It* tha 
■ ■tM*ly t*ndv*9r lourca paaa*d to th* output at i nur u. 



WAtl (t a crott aittoblar for tha ttOO'l/^/SyB and 
nlei of lha 6S0 1 ). 



1 1 tna tKtantfad 



AHtDS It * trott fltttaa>ttr for th« ftfCH. 



D-BUG 



l.OMtlnj for a alncHa «itp Ira car and alnl In-llnt d1aatf«aolar that la aaay 
to LitalT look no furthar, you haw found It. Ihla packasa la Idtal for 
thott i*all attaabl)' Vano-jana proorab dabuocj Ing taaalont. P-flUC occuplta 
latt thin 6K (Including Itt acaci and varlabltal and uy b* loadtd any«ttarf 
In naaory. All you do la LOAo 1T< AJn II and &0l (90 col VOUt only). 



McCOSH C" 



T*1i <• at (Oaala-tr a '(• caapliar •• you „Hl find on ai\y oporat*ng ayttao 
For th* MOQ. tt It c«atiltt«lT coanatlbla iflth UNIX VII and only lathi 
■blt-f lald»> luhtcl. srm of UltLa practical uta In an B-Oll world*). 



• Praducat wary affleanl aitaottly I 
tourca optionally Intariaavad a* c< 



a tourca ovIP-,t 



' built-in apilialj*r wHi ihartan objad tod* fry apoul IH. 

- t-uopartt Inltritavod aibaodly lanawafa- erooraar*. 

liCt.UKl Ita ovn aattablfr, nv» TIC r«locatin« attaaolar It gnl> rtou1r«d 
II you want to panarat* your a«a\ Ubrarla-a. 

Tha pro-oroctitor, to«ptttr, ool'alitr, attaaAlar and loadar att run 
Indkfidndavi tly or tndtr tha *CC ■■•««! Iwt. *<C* aakai coaptling a Orogroo 
to tmttutaolt oblrcl at a1«Pla *■ typlno In > CC,HEXL0.C ' 



IEEE -488 



SUrrORTI ALL HIlMClPM. "JDOtS OF THE KEC-Aoe (1975/4) BUS S*t C17 ICATIDH: 

- Taltar . s*rl»t Poll - sing.lt or Oual Primary Adortia 
• Uttanar - P»rallal Pot I » S«condary Addratl 

- tyttao Controllar - 6>ouP Trlogar - Tall onty ... Lttttn only 

Fully dCKUKantid with a eoaplata raprlnt of lha tUttlMW artlcla on lha 
lCCi: bui and tha Rotorol* Publication *Sait1A9 •boAM tha t€EC gut'. 

Lo- laval aaaraoly languaga drlvara aultaOU for tftOC, frAOl,, MQ2, 4MJ, 
6oCM and **t>9 ara lupolttd In tha tora el Uttlngi. a coaplata back to 
back laat prograa la alto iu»pl1ad In tha fora of a Haling. Ttiaaa 
driwari hava batn titantivaly tattad and ara OUARANTEEO to work, 

llngla 1-50 board t*j ft or 16 addraaaat ptr port), fully aockatad^ gold 
plAlad bui connaclora and t€EI Intorfaca ttola attrably. 



PRICES 

fr-*>t t6M4 FL«* only] I 7^.00 

MCt tun FLU only) t 75.00 

HKI (MM 7LII only) 1 91.00 

»S»05 <ta0< fill only) 190.00 

PL/9 <00OT fill only) J190.00 

'<' <0S0« fUI only) ittS.OC 

UEI-4U .till IIK-4M 1161a .lir*ly >»0.Oa 

-I1IU .Itb ort. wrtlort of Mfl.af. CM c«Blt or Inttrf.to) .. II9S. 00 

-ll/< »• »bon bwl cowlait .ten caola IM J-SO fntarfaca ... .1545.00 

Can.1 5> l.lal-fvtlat 50 «ay cla .tia IPC camaclora ...... t 35.00 

s-so in sj-M Intartaca <or unot-u Dso.oo 

110* )HT laotorola (lOWwa (ixoadiar) Intarfaca to. cw^-ll ... 1195.00 
UPROM Sfr Sofl.ar. ortvara for Trio oparallna ayat... 

scacifr fUi or on an ,tai <<»i i 35.00 

lino. Sac aaaaaoly lartauao* aour<a (contact ua .tract) .................. 

til 'tin I 11111H alt a 1 1 l fiiTtn 

Taraai <M0. titant or tnt't *x*y Oroar, vllt or UtTIftKAkO hid acct.114. 

k« STOCK THE FOLLOWING COMWU«ES PftOOUCTS: 

Gaax.ssfi. fhl, wemomm. T3C, llcioata, lloyo i/o. 

ALfOWP a ASSOCIATES. 

Pill (t.) la a trrta*art of T.chntcat frattoi Corktultwict, os-9 tt.) ta a 
trattaoara of Hlcfthara fpttttn carport Man, HWt (ta) am) ERORctitr (ta) 
ara tradtaarka of Fntorola 1ft torpor at as. 



WOftSTEAD LABORATORIES, NOfTTM WALSHAM. 
NORFOLK, ENGLAND. NR28 9SA. 

TEL: 44 (092) 404086 
TLX: 975548 WhtJCRO Q 
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Tit ni| au boob, hood caaraatar maaaziBi i 

-*■ Dan 6809. 68000 ■■tariil 
• tan all tat- ■than Cattataad I 



KB 

7.8 



MAGAZINE COMPARISON 

(2 years) 

Monthly Average* 

6800 Articles TOTAL 

BYTE CC DOBB'S ' PAGES 

6.4 2.7 2.2 19.1 ea. mo. 

Average cost for all four each month: $6.53 

(Based on advertised 1-year subscription price) 

68 cost per month: $2.04 

That's Right 1 Much. Much More 

for About 

1/3 the Cost 1 

OK, PLEASE ENTER MY SUBSCRIPTION 

Bill My: Master Charge n~ V I SA □ 

Card zt Exp. Date 

For □ 1-Year □ 2 Years Q 3 Years 



Enclosed: $ 



Name 



Street- 



City. 



State 



_Zip_ 



My Computer Is: 



Subscription Roles 
(Effective March 3, 1985) 

U.S.A.: t Tear $24. 50, 2 Years $42.50, 3 Years $64.50 

* Foreign Surface: Add $12.00 per Year to USA Price. 

* Foreign Alreoll: Add $48.00 per Year to USA Price. 

* Canada L Mexico: Add $ 9.50 per rear to USA Price. 

* U.S. Cwrency Cash or Ctock Drawn on a USA Bank Bt 

68 Micro Journal 

5900 Casaandni Smith Rd. 

Hlxton. TN 37343 



WESM 



(615)842-4600 



TELEX SSI 4t4 PVT BTH 



STAR-DOS LEVEL I 

Whenever a new DOS is introduced, there's 
always the problem of developing software to 
work with it. So we did it the opposite way — we 
analyzed the requirements ol software thai 
already exists and developed a DOS (hui met 
them... and exceeded them! The result is STAR 
DOS Level I, a new DOS lor 6809 systems, ideal 
for single-user industrial, control, and advanced 
hobbyist applications. This includes SS-50 
systems and single-board computers from a 
variety ol vendors. 

Level I is compatible with most current 6809 
hardware and software On the hardware sidy, il 
allows up to ten floppy or Winchester drives with 
appropriate controllers. On ihe software side, il 
runs existing 6809 software from all Ihe major 
6809 software suppliers, including TSC, Slar 
Kits, Introl, and others. 

Write or call for more information. STAR 
KITS Software Systems Corporation. P.O. Box 
209, Mt. Kisco N.Y. 10549 (914) 241-0287. 



ks 



;tarkits- 



AfOERSON CTJfVTER 00NSULTAHTS 
& 

Associates 



Ron Anderson, respected author and columnist 
for 68 MICRO JOURNAL announces the Anda-son 
Coeputer Consultants & Associates, a con- 
sulting firm dealing primarily In 68XX(X) 
software design. Our wide experience In 
designing 6809 based control systems for 
machine tools Is now available on a 
consultation basis. 

Our experience Includes programming 
machine control functions, signal analysis, 
multi-axis servo control (CNO and general 
software design and development. We have 
extensive experience In Instrumentation and 
analysis of specialized software. We support 
all popular langjages pertaining to the 6809 
and other 68XX(X) processors. 

If you are a manufacturer of a control or 
measuring package that you believe could 
benefit from efficient software, write or call 
Ron Anderson. The fact that any calculation 
yoj can do with pencil and paper, can be done 
much better with a microcomputer. We will be 
happy to review your problem and offer a 
modern, state-of-the-art microcomputer 
solution. We can do the entire job or work 
with your software or hardware engineers. 

Anderson Caaputer Consultants & Associates 

3540 Sturbrldge Court 

Ann Arbor, HI 48105 
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our EPROM PROGRAMMER with the field. 

Ml d»ta tjifc*j cjtcoctly rnn mruf *rt w#i" ■ curretit oNvrxialng. 9oft«wv. 
ititmtfacm, *>t poracn«tXiy iis-jlm my alto »» roquirwl at eniiiMcnal »«i.. 



• *«l)l<rf in Kit r«fm 



INTf BfUCt 




SJO 




PAR 


PAR 


SER 


S30 


5fH 


SER 


INTELLIGENT 


NO 


HO 


NO 


TES 


NO 


YES 


ViS 


PROGRAMS 
ITO4' 
2S0A 
2706> 
2/Se 
2S1« 
271B 
2716- 
2532 
2732 
2732A 
25B4 
27B4 
2126 
27128 
2818 
S87S4 
9748 
8748 


• 

• 
• 

• 
• 
• 
• 
• 
• 
• 


• 
• 


• 

• 
• 
• 

• 

• 
• 
• 

• 


• 

• 
• 




• 

• 
• 

• 
• 
• 

• 
• 


• 

• 
• 

• 

• 
• 
• 

• 


TOTAL 


11 


3 


12 


• 


11 


11 


11 


PRICE 


»4»- 


ti«g 


13SS 


IJT5 


I AM 


tsn 



mm trim rrapanr. si«. rvwuiitr «ut ft* nee. ine. »i». and 

2716 include). 'H-c^jfy CHJ, >H«k SIC ar*J T*rat Imj By*K» <TSC'. l"LW a* 
89ft** HKI **V*> cmlenntl. Manj.1 cnly. CO.* r»fi*>ljdil« vrtUi F314W pwrct-AM>. 

UNITEK • P.O. Box 671 • Emporia. VA 23847 



TMP SOFTWARE ANNOUNCES 

A Popular FLEX Databate Program, 

DATAMAN 

It being ft*-rrlra»*d! 



PO WERFUL CA PA BILI TIES: 



$195.00 



• Each field can contain up to 126 characters, and each held njnie 
can contain up to 29 character"* 

• Field types can be alpha, numeric or monetary. 

• DATAMAN lets you produce vertical or horizontal reports of 
your database, or create customized letters and forms to putl dak) 
Irom a database using DATAMAN files processed by the TSC 
Text Processor 

• DATAMAN allows you to look up records quickly. 1o merge 
unlike databases and to move records Irom one database into 
another 

• DATAMAN includes a Label Generator to produce moiling, 
shipping or inventory labels 

• To sort records based on the qenqraint-c. historical, name, or 
munetarycrilenayou select. DATAMAN creates Sort Fileswhich 
can then be used with the TSC Sort Merge package 

GIVE YOV MO*E ABILITIES: 

Our Users put DATAMAN to work lor them to do customer 
mailings, past due notices, real estate listings, invoicing, sales 
analysis, activity scheduling, inventories, employee records and 
client prolrle reports 

Also included in this package is DATARAND, the extension 
program to DATAMAN which enhances DATAMAN programs 

DA 1 ASIAN iuik u-vjii tSC E-n.-mJ.-rf Hiv. 1 hi. ISC S-.tl Mi-isr «-kI l.-v 
•/ntc*-***-? priK-rdim Me dko m-jffln-n-dAJ 1 lv Strurtr C,<*f Inr DA1AMAN ^itd 
DATAKAIMD n nrlucVd un Ih* i*Ww rinkt 



ORDERING INFORMATION: TMP SOFTWARE 

2431 E. Don-jUn • Wichita. KS • 6721 1 

OR CALL TOLL FREE: I-S00.2SS.I3S2 E«(. 47 

We accept VISA, MC. AMF.X. money orders and check*. 

NOir 7MP S.*im»» MS" ullr»» »«• IMM+WlHHAHAljfKI.. OS V •»•<•>» uoffhi. 

IMP f KILIOHM IT» £/»(.» OS M»id 0*r . ,wm 

f~ir\ ml tSC urt* t,odm*h\U J«* In* <rf Sv.lvwn C a "1M4ritnr* frj. 
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Disk- 1 Filesort, Minicat, Minicopy, 

Minifms, ♦♦Lifetime, **Poetry, 

"Foodlist, **Diet. 
Disk- 2 Diskedit w/ inst.S fixes, 

Prime, *Prmod, **Snoopy, 

"Football, "Hexpawn, "Lifetime 
Disk- 3 Cbug09, Seel, Sec2, Find, 

Table2, Intext, Disk-exp, 

♦Disksave. 
Disk- 4 Mailing Program, *Finddat, 

♦Change, *Testdisk. 
DISK- 5 *DI SKFI X 1, *DISKFIX 2, 

**LETTER, **L0VESIGN, **BL/tKJAK, 

"BOWLING. 
Disk- < "Purchase Order, Index (Disk 

file indx) 
Disk- 7 Linking Loader, Rload, Harkness 
Disk- 8 Crtest, Lanpher (Hay 82) 
Disk- 9 Oatecopy, Diskfix9 (Aug 82) 
Disk -10 Home Accounting (July 82) 
D1sk-ll Dissembler (June 84) 
D1sk-12 Modem68 (May 84) 
D1sk-13 *Initmf68. Testmf68, *Cleanup, 

*Dska1ign, Help 
Disk -14 Mnit, *Test. ^Terminal, *Find, 

♦Diskedit, lnit.Lib 
D1sk-15 Modem9 + Updates (Dec. 84 

Gilchrist) to Modem9 (April 84 

Commo) 
Diok-16 Copy.Txt, Copy. Doc, Cat.Txt, 

Cat. Doc, Date.Txt 
Dlak-17 Match Utility, RATBAS (A Basic 

Preprocessor) June 85 
HOTS: 
This Is a reader service 0NLY1 No 
Warranty Is offered or Implied, they are 
mm received by '68' Micro Journal, and 
are for reader convenience ONLY (some 
MAY Include fixes or patches). Also 6800 
and 6809 programs are mixed, as each Is 
fairly simple (mostly) to convert to the 
other. 

PRICE: 8" Disk $14.95 - 5" Disk $12.95 

68" Micro Journal 

5900 Cassandra Smith Rd. 

Hlxson, Tn. 37 343 

(615)842-4600 

* Indicates 6800 

** Indicates BASIC SWTPC or TSC 

6809 no Indicator. 

MASTER CARD - VISA Accepted 
Foreign — add 101 for Surface 
or 201 for Air! 1 
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TRS-80+ MOO I. III. COCO. T»99/4a 
TIMEX 1000. OSBORNE, others 

GOLD PLUG - 80 

Eliminate disk reboots and data loss due to oxi- 
dized contacts at the card edge connectors. 
GOLD PLUG 80 solders to the board edge con- 
nector Use your existing cables (if gold plated) 



GOLD PLUG 80 Mod I (6) 

Keyboard/El (mod I) 
Individual connectors 
COCO Disk Module (2) 
Ground tab extensions 
Disk Drives (all RS ) 
Gold Disk Cable 2 Dnve 
Four Dnve Cable 
GOLD PLUG 80 Mod III (6) 
Internal 2 Drive Cable 
Mod III Expansion port 
USA shipping Si 45 
Foreign $7 






S44 .95 

15.95 

7.95 

16.95 
INCL 

7 .95 



10 9 
995- 

■ a i\r 

-tree- 

•J . J7' 

29.95 
39 95 
54 95 
2995 
1095 
Can/Mex $4 
TEXAS 5% TAX 

Ask jrour favorite dealer or or4er direct 

E.A.P.CO. — — 

PO BOX 14 "nn" 
KELLER. TEXAS 76248 

(817)498-4242 MC/VISA 
♦ trademark Tandy Corp 






4fyt 



for the CoCo 
DISK SYSTEM 




XPNDR2 $39 95 each or 2/S7A 
This prototype card features a 40 pin 
connector lor project requiring an on 
lino disk system or ROM paks The 
CoCo Signals are brought oul lo wire- 
wrap pms Special gold p-ated spring 
clips provide ratable and noi»«irae 
disk operation plus solid Support lor 
vertical mounting ot the controller The 
onlire4 3-7mchcardisdritkid (or ICs 
Assembled tested and ready to run 

XPNDRt S19 9S»achOr 2/536 
A rugged 4 3 • R 2 inch bare breadboard 
ihni brings the CoCo signals oul lo 
labeled pads Both XPNDR cards aro 
double-sided gLass/epoxy. have gold 
plated edge connectors, thru-hole 
platmg and are designed with heavy- 
power and ground buses They're 
dnlted Jer standard 03 and 6 inch 
wide dual mltne wirewrap socket's 
wrthaO 1 inch grid on Iheotdboardend 
lor connectors 

SuperGuMe 53.95 each 
Here rs a unique plastic insen lhal 
aligns and supports printed circuil 
cardsmlhoCoCocarlridgeporl Don'l 
forqol to ORDER ONE FOR YOUR 
XPNDR CARDS 



Included with eacn XPNDR card 
are 8 pages of APPLICATION 
NOTES lo help you team about 
chips and how to connect Ihern lo 
your CoCo 



To order or tor Technical informa- 
tion call 

(206)702-6609 
weekdays 8 a m to noon 
We pay shipping on prepaid orders 
For immediate shipment send 
check money order or the number 
and expiration date of your VISA or 
MASTERCARD to 



Koaonc 



n 



MICROSYSTEMS 



BOX 30807 SEATTLE. WA 96103 



mm 

Computer Engineers 



19535 NEOUSAN PORTLAND, OR 97230 (USA) 

PHONE: (503) 6*4-1097 • TELEX 910 380 5448 U.OVD I O 

K.BASIC IS HERE 

K-BASIC is a TSC XBASIC (XPC) compatible COMPlif R 

for OS9 & HEX. price $199 

Here at lasl Is a compiler (or BASIC that wH compile oil your 
XBASIC programs K-BASIC compiles ISCs XBASIC and XPC pro 
grams to mochine code K-BASC IS reody now to save you 
money and time by leaching your compuler to 

■ Thmic Foster ■ Conserve Memory ■ Be Friendlier 

Call (SO 3) 6**- 1097 tot our CATALOG. 
W« hov« many program! tof Mtloun tomvar* dav«lop*nl 



DO" 

Micro BASIC for OS9. 



$149 



A structured mirco BASIC tor general system control teolunng: 
Poromeler passing. 10 string voriobtes. 26 numenc voriobtes. 
subroutines nested loops, nterocfrve I/O. sequenliai files, and 
time variables (for oppucattoris e«ecuf»ng in the bockgiouna ie 
quired to execute procedures such os d<sk or file backups) In 
eludes the SEARCH ond RESCUE UTILI11ES'" (For OS9 OfgLV) 



SEARCH and RESCUE UTILITIES 

for OS9 $35 

A super dtrecloiv search utility Output may be pped to the In. 
eluded utilities to perform Me COPIES. DELETES. MOVSS. LISTING 
(pagination), and FILTERING Some filtering utility programs ore 
Kicluded,- ot interest is the FILE DATE CHECKING utilities YOUNGER 
and DRAFT (level 2) (For OS9 Level 1 and 2 ) 



PATCH " 

Modem Communications for OS9. $39 

PATCH rs a modem cflfT\mur«*rtvri s program lor OS9 lealutlng 
K£V MACROS. ASCII TEXT AND FJINAiTV FILE UP/DOWN LOADING. 
PRINTER COPY, and HELP MENUS We use it several times eoch 
day with our TELEX service PATCH is convenient ond easy lo use 
Key macros rnoy be preslared and loaded al any time 



CRASMB" 

CROSS ASSEMBLER PACKAGE 

for OS9 &FLEX oil for $399 

Motorola CPVs $150 

Intel CPUs. $150. Others. ..$150 

CRASMB Is the highly acclaimed cross ossembler pockoge for 

OS9 and FLEX systemi It turns your 6809 computer into a de- 

velopmen t station (or these target CPUs 

6600 6801 6800 6805 6809 6811 6502 
7000 1802 8048 8051 8080 BOSS 26 Z80 
(68000 16/32 bit cross assembler.. $249) 

CRASMB features Macros. Conditionals. Long symbol names, 
Symbol cross reference tables. Object code in 4 lomnots (OS9, 
FLEX. S-1-S9. INTEL HEX). 



VISA MC. COO. CHECKS, ACCEPTED 
USA: UOYD I/O |S03>64 1097). Si MEDIA (800 JM MOO] 

Engiantt VTvovoy (QUI 42M25J. Wtndmrfl (0692 405149) 

GOTTOTr. Zoetw<Go<nput«{6J39 29vJ. Ken SoflwtM (04203 »741) 
Auittailo; Parts Radio Oecflwlci |344 9111) 

« msc oa somen am erscte cutos 

PATCH CBA9KS ana OJAA* tftl? am HtMrxn Ot UO\D LO 
0S9 6 a " ot Mc«c« fit* a a * or J5C 
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CORN # 



COMPUTED ■ V ■ T ■ M • SB-SOC 



MODULES - BARE CARDS - KITS ■ AS 3 1KB LID It TESTED 
Stackabla Moduli* KIT A»T 

30 ut POSER SOPPLT w/f»n 

■/Disk protect rally 350.00 400.00 

DISI CABINET a/ra«a. k eablaa 

laaa DRIVES 300.00 330.00 

MOTBI* BOARD, S SS-SOe. S 33-30* 

WMI button 335.00 335.00 

Itaa Bin KIT AftT 

ITS - IJrTERtOTf TIBER 

1, 10, 100 par aac. 19.93 39.95 39.95 
FfU - INTCLLIGKNT PORT BOPPER 

SlD(la board coaput.39.95 114.95 Ua.ai 
DPIA - Dual PIA p»r»Ual port. 

4 buffarad I/Oa 34.95 SB. 95 89.95 

XADE • Utaodad Addraaalna 

BAUD (». PIA port 39.95 89. 93 19.93 
MM - NOmCR BOARD SS-SOe 

•/BAUD fao. S4.95 149.95 199.93 

PISS - 18BE PROM DI8K 

31. 3784 EPROUa 39.95 79.93 109.93 

FD88 - Flrawora da alopnaat 

3. 8E block. 39.93 84.95 114.93 

JCMPR - 3784 PROM bursar adapt. 

for 3718 BDBMER 19.95 

CHBRHT Eajb ard w/Cabloat 

98 lay capacltlva 149.95 

TAXAIT 13". 18 Mbl MOWITOB OftXEX 149.95 

AMBER 159.93 

4 NODDLE CABIRTT - UBflolabad 130.00 

POIER SOPPLT */dlak protact 330.00 

Color Computer 

MOKOlin - 30 Mb« Uoaocbroaa 

Tldao drlaar 15.00 30.00 

CC30 PORT BOS a/poaar aupplr 

5 S8-30. 3 Cart 189.95 199.95 

PORE SOX 8 a.ltchad outlata 

traaalaot auppraaaloa 39.95 39.95 

83-333 3-a*ltcbad porta 

for above ADO .20.00 +33.00 



Write for FREE Catalog 

ADO iJ.00 StM PER 0«0E* 
HI3. A00 5" SAIES TAX 



11931 W. Biuemound Road 
MILWAUKEE. WIS. S3226 
(414) 257- 0300 
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PT-69 SINGLE BOARD COMPUTER SYSTEMS 
NOW WITH WINCHESTER OR FLOPPY DISK DRIVES 



Tne proven PT-69 Single Board Computer line is expanding' Systems now can be Winchester or (loppy-based Available also in a smaller 
cabinet witliout drives lor dedicated systems with no mass storage requirements 

* 1 MHZ 5809E Processor ' 2 RS 232 Serial Ports (6850) ' 2 6-brt Parallel Ports (6321) 

• Time-01-Day Clock " S6K RAM 2K/4K EPROM ■ 2797 Floppy Disk Controller 
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PT69XT WtNCHESTEHSVSIEM 

Includes 5 MEG WincNnlm Or<v* 1 40-lrac* D3/D0 0"ve 
Potato Ptmitr iniMft«(v • crtotce til OS^or STAR. DOS 




Custom Design Inquiries Welcome 
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I2M 
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SO 
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CALL OB WHITE FOR AOCH TIOMAI 

CONFIGURATIONS 



VISA MASTERCARD/CHECK/COO 



PERIPHERAL TECHNOLOGY 

1460 Terrell Mill Rd. Suite 870 
Marietta. Georgia 30067 

Telex 0680584 404. 973-0042 



XDMS 

Data Management System 



DISPLAY | / INPUT 





UTILITIES 



pTJlTHV p^j " 



/ PAQINO L^-^JvmiMJU. L* 
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(•&( (~) (oSK^ /fer^ 
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WEBTCHBBT 



System Architecture 

EH Applied Builnki 
Pott Dffice fioi 187 
fci i/r Manor. H.T. IQSIS 



X£?M^ D»t* Mermaement Bvetem 
Th* XDMS Data. HiPifinmt Syata-m i« available in thrt* Ldvdja.. Etch 
love) include* ifte XDMS nudtuii VMOEX utility a*d 4ya»em Doi umeMation 
(or |e«el II). IDKI i* en* el tne niDd powerful tyttama available for 
r>80* computer* en* may B* ited for * Mid* oi'tity of ap»ltr*1 i»ni, XDMS 
vifi iti registered in out fii«»i*« to Permit d ittrioution o« product 

inrlojn C*>Tv#n<* «n<] validation at l»«#r upBjr*det *Ad (h( Iftl *Jrl »o r» rtqmili- 

XPWB Level 1 

XDMS Laval 1 [0«nnti of DEFINE. VPDATE ind REPORT fiultltfi. 
Thu leva) it intended et «n "entry level™ aytlem. and permit* entry intf 
reOnrling of del* pn * "(etuler* etna. The REPORT facility •upport* 
rtrcrd ind dilv * el eel ion , field mer S •< lorting, lim calculation!, 
column to tall and r a port 1 1 rlirnQ, Control i* via e C'igliari- Like language 
#Mth t* wP-erd compatible with level It. XDHS Level I .... . el??.13 

XDM9 JUfl^»* J1 

Laval tl add* to Level I the powerful OEXERaTE facility, Thl* facility 
c*n t* trtou}rit of a« a ffenerel file processor -men can produce, report*. 
forma and form letter* a* -all a* file Output wfclcnj may be n-infbi to 
the facility. OEKCRATE <*4t be used m ccnOlti Protesting application* 
afld i* controlled by - Ingush- like (VMmins language which •^'^iltlt 
Th«t t/ied Pi Level 1* XDHS Le.el II ... Il»t.?5 

XPMH Level 111 

Level 111 include* all of level II plus a tel o» useful QMS Otilit.e*. 
Tnata utilities are designed to aid »n tne development and mamtanenee 
of utf application* end tirmn modification of XDHS aytti-m psremoters. 
■ndut find Output of IDMS 'ilea, display end) modification of filo formal. 
graphic display of numerical data and older functions. Level lit is 
intended fo* advanced XDMS uteri, XDMS Level III ....... . *3be.03 

XLMt System Documentation only idlQ. crtdit toward purchase!. . .a 2t.s5 

KACC AccQunttno Bvetem 

Tne XACC General Accounting System i« daa.fnaa f 9 , tmal) euainea* 
• evirDnmenit* pf *jp tp 10*000 acccmntt and »Mve«tdry tteme. T^* t*it|«i 
m'egrarea accounting function* and inventory plua (*•• deneral ledger, 
accoi/nti receivable a*»d aaiabla fwnctiona nprmally eold »*Pa»at»ly in 
dlh*. ayateme. Iealu*aa wter defined aecovnia. produdi tor lervlc**)- 
tr anaaction a> i*»otcifflj, etc. Eauiy configured to moat iitviiaaBinti, 
XACC Oeneral Accevntinf fytttm if)ea.uire« X0M8, p.ef. Lv. UlJ. . *Ia».»5 
XACC Sytiem Docum*Atatian Only it)0. credit towa*d furcnaaei. . .1 Ja.e5 

WE8TCHEBTEH Applied Budlneaa Byittm* 
Poll Dffice lot 1ST. ■«tercllT Manor, S.Y, I0SI9 

All eeftwece 1* irttten tft ncto/ttiaaklir aao OmU under <>909 PLU Vft* 
feteji QMck, p«Hir Order, vtee or HoajC«rch*rgd. Shlpwent f iret ctddt. 
444 f-fcH la. M (Sr.M FdroUd Surface or llS.OO roTelfo Air). Wt Raa *44 
aolet (u. tpeciry 3" or •". 

Idieat ». 1. ISmffU, (*I4) Ml^idB. CtwautntUa: 9l*-»4l~3J5I <avan*> 
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GIMIX HAS THE 6809 SYSTEM TO SUIT YOUR NEEDS 



HARDWARE 

All systems feature the GIMIX CLASSY CHASSIS: with a lerro-resonant constant 
voltage power supply, gold plated bus connectors, and plenty of capacity for future 
expansion. 

Static RAM and double-density DMA floppy disk controllers are used exclusively in all 
systems. 

All systems are guaranteed for 2 MHz operation and include complete hardware and 
software documentation, necessary cables, filler plates, etc. 

Systems are assembled using burned-in and tested boards, and all disk drives are 
tested and aligned by GIMIX. 

You can add additional components to any system when ordering, or expand it in the 
future by adding RAM, I/O. etc. 

GIMIX lets you choose from a wide variety of options to customize your system to your 
needs. 



SOFTWARE 

All 0S-9/FLEX systems allow you to software select either operating system. 

Also included is the GMXBUG monitor and. in systems with 126K or more of RAM, 
GMX-VDISK for FLEX. 

All GIMIX OS-9 systems include Mlcroware'i Editor, Assembler, Debugger, Baslc09, 
and Runb: and the GMX versions of RMS and DO for OS-9. 

All GiMiX versions of OS-9 can read and write RS color computer format OS-9 disks, 
as well as the Microware/GIMIX standard format. 

New and exclusive with OS-9 GMX III systems is the GMX OS-9 Support ROM, a 
monitor for OS-9 that includes memory diagnostics and allows the system to boot directly 
from either hard disk or floppy. 

A wide variety of languages and other software is available for use with either OS-9 or 
FLEX. 
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OS-9 GMX lll/FLEX SYSTEMS (#79) 

The 879 super system now inctodes (in addition to the above): the GMX 
6M9 CPU III. a 2S6X CMOS Sufc RAM Bant (172). and a 3-jwrl In- 

Mgtnt Serial I/O Free**** (fll) 

The GMX 6809 CPU III can perfonn high-speed DMA transfers from 
memory to memory and uses memory attributes and Illegal Instruction trap- 
ping to prated the system and users trom program crashes. II a user pro- 
gram crashes, only that user is affected; other users are unaware of the 
problem. 

The 3-Port Intelligent Serial I/O Board (fll) significantly reduces system 
overhead by handling routine I/O functions: treeing (he host CPU for run- 
ning user programs. This improves overall system performance and allows 
user terminals to be run at up to 19. 2K baud. 

with dual 40 track OSOD dilves $5998.79 

with dual 80 track OSOO drives $8198.79 

with 888 dual 8" OSOOdrtve system $7698.79 

with 890 19MB Winchester subsystem and one 80 track $8898 79 

with a 47MB Winchester subsystem and one 80 Hack $10,898.79 

with a 47MB plus a 6MB removable pack Winchester 
subsystem and one 80 track drive 112.39879 



TO DMKR IT ML: SWQ CXCX OR MONEY OftDEfl Oft USE YOUR VISA OR 
MASTS) CHAS6E ReJMl»o»3-«Bfc5lorpeii»W tfwdattdeB US mars add 
15 runoancj e onjer « under $200.00 FaMgn odors add $10 W«*>Q t veer B 
under $200 00 Faton onkn ever StOO 00 wi be jNppao <a Every Air Fnjgti 
COUiCT. iMMdi carp no ntndtog u enars mat M ons>o m U S. twos 
Please ik* Vol kntgn chads era Man UMng mm 8 nM tar ceMOkgn so we 
aotiteapvae avwg money, or checks drawn on a Bank znuiai me US. Out ban* 
is the tontnart* umm Nrtonal Bank ot Cncajp, 23t S. LaSate Street. CROP. H. 
BOSS), axnrnl fr> 32033 

BAS1C-09 and OS-9 are eMktmrks of Mfcrowin Sysknrs Corp and MOTOROLA. Inc 
FLEX and UnlFLEX ire (raJoTnirxj of Technical Systans Cons/rams. Inc. 
GIMIX. GHOST. GMX. CLASSY CliASSlS. are Iradararta ot SlMix. Inc. 



OS-9 GMX I / FLEX SYSTEMS #49 

The M9 systems eKaide 64KB static RAM. #05 CPU. «43 2 pal serial 
board. 

withdual 40 track DSDD dilves $3998.49 

with dual 80 track OSOD drives $41 98.49 

with 888 dual 8" DSDD ditve system $5698.49 

with 190 1 9MB Winchester subsystem and one 80 track ... $6898.49 

OS-9 GMX II / FLEX SYSTEMS #39 

The 839 systems Indude 128KB slate RAM. #05 CPU, #43 2 poll serial 
board. 

with dual 40 track DSOO drives $4498.39 

with dual 80 IrackOSDOdilves $4698.39 

with 188 dual 8" DSOO drive system $6198.39 

with 890 19MB Winchester subsystem and one 80 track $7398.39 

GIMDC DOES NOT GUARANTEE PERFORMANCE OF ANY SI MIX SYSTEMS. 
BOARDS OR SOFTWARE WHEN USED WITH OTHER MANUFACTURERS 
PRODUCT. 

EXPORT MODELS: ADO $30 FOR SOHi. POWER SUPPLIES. 

GIMIX. Inc. reserves the right to change pricing, terms, and products 
spednabans at any Ome without further notice. 

ALL PRICES ARE FOB. CHICAGO 

Contort GIMIX tor price and avartaetity of UnlFLEX and UnlFLEX GMX1II 
Systems 

NOTE on alt drive systems Oual 40 track drives have about 700KB of for- 
matted rapacity: dual 80s about 1.400KB: dual 8" about 2.0OOKB. The 
formated capacity of hard disks is about BOH oi the total capacity. 



Want to expand your system to a 
megabyte of Static RAM and 15 users? 

Simply add additional memory and I/O boards Your GIMIX system can 
gi ow with your needs Con tad us tor a compM e list of available boards and 
options 

872 256KB CMOS STATIC RAM board 

with baltery back up $1898.72 

864 64KB CMOS STATIC RAM board 

with baltery back up SS2B.E4 

•67 64KB STATIC RAM board $478.67 

#11 3 port Intelligent serial I/O board $498.1 1 

•43 2 pat serial I/O board $126.43 

842 2 port parallel I/O board $88.42 

#95 cable sets : 1 needed per port), specify board $24.95 



NOW 


SHIPPING ! 




UniFLEX 


GMX III Systems 



Gimix 

1337 WEST 37th PLACE 
CHICAGO. ILLINOIS 60609 
(312)927-5510 • 




TWX 910-221-4055 

CltWfilMIX INC 




C.P.I. 

Color Micro Journal 

'68' Micro Journal 

Data-Comp 

S.E Media 




For Ordering Call 



(615)842-4600 

FROM - DATA-COMP, C.P.I. 



A Family of 100% 68XX Support Faciliiies 
The F.Iks who FIRST Pul FLEX' V on 

The CoCo 

Now Offering ♦FLEX" (2 Versions) 

AND 'STAR DOS PLUS + " 




r 


TSC Editor 

Krq tM 00 

NOW $35.00 


-\ 
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DOS PLU9 + 

• Functions Same as FLEX 

• Reads - writes FLEX Disks 

• Run FLEX Programs 

• Just type: Run "STAR-DOS" 
Over 300 utilities & programs 

to choose from. 



PLUS 

ALL VERSIONS OF FLEX & STAR-DOS* INCLUDE 

+ Read- Write- Dir RS Disk + External Terminal Program 

+ Run RS Basic from Both + Test Disk Program 

+ More Free Utilities + Disk Examine & Repair Program 

+ Many Many More!!! + Memoiy Examine Program 




TSC Assembler 

11-9 ISO 00 
NOW $35.00 



CoCo Disk Drive Systems 



NEM 10MER PRICES ON tU ti. AM) PRlirTJtS 

THESE PACKAGES INCLUDE DRIVE, 'CONTROLLER. 
"OWE* SUmV « CABINET. CABLE. AND MANUAL. 

• SPECIFY WHAT CONTROLLER YOU KANT JM. OR RADIO SIM*.. 

MI #1 - 1 SINGLE S10ED. DOUBLE DENSITY SYS. 1349.95 

MI tt - I SINGLE SIDED, DOUBLE DENSITY SYS, 1(39,95 

MI f J - 1 DOUBLE SIDED. DOUBLE DENSITY SYS. MJ9.9S 

MI #4 - 2 DOUBLE SIDED, OOUBLE DENSITY SYS. S699.9S 
MI « - 2 DOUBLE SIDED, DOUBLE DENSITY SYS. 

TNINLINE DRIVES, HALF SUE «».« 



Controllers 



JAM DISK CONTROLLER «/ JOGS OR RADIO SHACK 

DISK BASIC. SPECIFY WHAT DISK BASIC. 1134,96 



RADIO SHACK DISK CONTROLLER 1.1 1134.95 



S4K UPGRADE M/MOD. INSTRUCTIONS. 
C.O.C.F. AND COCO 7 

HJL KEYBOARDS 

MICRO TECH LOWER CASE ROM ADAPTER 

RAOIO SHACK BASIC 1.2 

RADIO SHACK DISK BASIC 1.1 

DISK DRUE CABINET I POWER SUPPLY 

SINGLE SIOED. DOUBLE DENSITY 5* DISK DRIVE 

DOUBLE SIOED. DOUBLE DENSITY 5" DISK DRIVE 



Printers 



EPSON RI-BO 
EPSON RX-IOFT 
EPSON MI- 100 
EPSON FI-100 
EPSON FI-BO 
EPSON MI-70 



Disk Drive Cables 



CABLE FOR ONE DRIVE 
CABLE FOR TWO DRIVES 



> 44. 9S 



S 74.95 
S 74.95 
S 24. 9S 
i 24.95 
S 49.95 
S199.9S 
S249.9S 



1269.00 
1369.00 
1499.00 
1799.00 
1549.00 
1200.00 



1 19.95 
1 24.95 



DATA-COMP 

590# Cassandra Smith Rd 
Hixson. TN 37343 
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SHIPPIN6 

USA ADO 2X 

FOREI6N ADO SB 

niN. 12.50 


(615)842-4600 

For Ordering 

TELEX SSt 414 PVT BTM 
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Advanced typing and 
text editing 
capability. 




ROYAL Beta 9000D 
Electronic Memory 
Typewriter with Display 

Theperteclcombination . advanced electronic typing 
and lext editing capability. The ROYAL Beta 9000O 
features an easily accessed 2S00 character phrase 
memory that lets you recall names, addresses and com- 
monly used phrases at the touch of a key, a user-friendly 
20-character display for ease of operation, 500 charac- 
ter lift-off correction memory, triple pitch, and much, 
much more. The Beta 9000D is also computer inler- 
faceable via ROYAL'S optional IP600 Interface Box with 
4K memory. Use it as a sophisticated memory type- 
writer or as a letter quality computer printer. Either way, 
the ROYAL Beta 9000D delivers professional perfor- 
mance. See the Beta 9000D at: 




Letter Quality 9CPS 
Dual Pitch Daisy Wheal 



uuiU-f)iirpo$e asset 
for home and office. 




ROYAL Beta 8200C 
Professional Portable 
Electronic Typewriter — 
Built-in Centronics Interface 



The ROYAL Beta B200C oHers advanced electronic 
typing performance , with 2-line lift-off Correction 
Memory. Triple Pilch. 1 1 1-Character Keyboard with In- 
ternational Language, Math, Legal and Business Sym- 
bols. Automatic Indent, Center. Return. Decimal Tab 
and much, much more The ROYAL Beta 8200C also 
features a built-in Centronics Parallel computer inter- 
face with 2K memory Use it as a typewriter or as a teller 
quality computer printer Either way. you get advanced 
performance and ROYAL value. See the Beta S200C in 
action at: 
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Btta 9000 D % 599 95 

Bata 8200 C $ 499 95 

Lattannaitar $ 259.95 

Dfficamastar 2000 $ 199.95 



Letter Qnalitg 2D CPS 
Dual Pitch Daisy Wheel 



DATA-COMP 

5900 Cassandra Smith Rd 
Hixson. TN 37343 



SHIPPING 

USA ADD ?X 

FOHEI6M ADD SI 



(615)842-4600 



TELEX Si 



